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PHÀN 1. BÀI TOÁN LIỆT KÊ 


Có một số bài toán trên thực tế yêu cầu chỉ rõ: trong một tập các đối 
tượng cho trước có bao nhiêu đối tượng thoả mãn những điều kiện 
nhất định. Bài toán đó gọi là bài toán đếm. 
Trong lớp các bài toán đếm, có những bài toán còn yêu cầu chỉ rõ 
những cấu hình tìm được thoả mãn điều kiện đã cho là những cấu hình 
nào. Bài toán yêu cầu đưa ra danh sách các cấu hình có thể có gọi là 
bài toán liệt kê. 
Để giải bài toán liệt kê, cần phải xác định được một thuật toán đề có 
thể theo đó lần lượt xây dựng được tất cả các cấu hình đang quan tâm. 
Có nhiều phương pháp liệt kê, nhưng chúng cần phải đáp ứng được 
hai yêu cầu dưới đây: 

e Không được lặp lại một cấu hình 

e Không được bỏ sót một cầu hình 
Có thể nói rằng, phương pháp liệt kê là phương kế cuối cùng để giải 
được một số bài toán tô hợp hiện nay. Khó khăn chính của phương 
pháp này chính là sự bùng nô tổ hợp dẫn tới sự đòi hỏi lớn về không 
gian và thời gian thực hiện chương trình. Tuy nhiên cùng với sự phát 
triển của máy tính điện tử, bằng phương pháp liệt kê, nhiều bài toán tô 
hợp đã tìm thấy lời giải. Qua đó, ta cũng nên biết rằng chỉ nên dùng 
phương pháp liệt kê khi không còn một phương pháp nào khác 
tìm ra lời giải. Chính những nỗ lực giải quyết các bài toán thực tế 
không dùng phương pháp liệt kê đã thúc đây sự phát triển của nhiều 
ngành toán học. 


Q 2 wën Chuyên đề 


§1. NHẮC LAI MỘT SÔ KIÊN THÚC ĐẠI SỐ TÔ HỢP 


Cho S là một tập hữu hạn gồm n phần tử và k là một số tự nhiên. 


Gọi X là tập các số nguyên dương từ 1 đến k: X = {1,2,..., k} 
1.1. CHỈNH HỢP LẶP 


Mỗi ánh xạ f: X —> S. Cho tương ứng với mỗi i e X, một và chỉ một phần tt fG) € S. 

Được gọi là một chỉnh hợp lặp châp k của S. 

Nhưng do X là tập hữu hạn (k phần tử) nên ánh xạ f có thể xác định qua bảng các giá trị 1), 
2),..., (k). 

Vĩ dụ: S = £A, B, C, D, E, F}; k = 3. Một ánh xạ f có thể cho như sau: 


i 1 2 3 
HE D c E 
Vậy có thê đồng nhất f với dãy giá tri (f(1). f(2), ..., f(k)) và coi dãy giá trị này cũng là một chinh 


hợp lặp chập k của S. Như ví dụ trên (E, C, E) là một chỉnh hợp lặp chập 3 của S. Dễ dàng chứng 
minh được kết quả sau bằng quy nạp hoặc bằng phương pháp đánh giá khả năng lựa chọn: 
Số chỉnh hợp lặp chập k của tập gồm n phần tử: 
An 
1.2. CHỈNH HỢP KHÔNG LẶP 
Khi f là đơn ánh có nghĩa là với Vĩ, j € X ta có f(ï) = f) © i =j. Nói một cách dễ hiểu, khi dãy giá 
trị f1), (2), ..., (K) gồm các phần tử thuộc S khác nhau đôi một thì f được gọi là một chỉnh hợp 


không lặp chập k của S. Ví đụ một chỉnh hợp không lặp (C, A, E): 


i 1 2 3 
fli) | € A | E 
Số chỉnh hợp không lặp chập k của tập gòm n phân tử: 


. E E ` EE 
A. =n(n—Ï])(n—2)...(n—k+]) E 


1.3. HOÁN VỊ 


Khi k = n. Một chỉnh hợp không lặp chập n của S được gọi là một hoán vị các phần tử của S. 
Ví dụ: một hoán vị: (A, D, C, E, B, F) cúa S = {A, B, C, D, E, F} 


i 1 2 3 4 5 6 
EU) A D Ç E B F 
Đê ý răng khi k = n thì sô phân tử của tập X = {1, 2, ..., n} đúng băng sô phân tử của S. Do tính 


chất đôi một khác nhau nên dãy f(1), f(2), ..., fn) sẽ liệt kê được hết các phần tử trong S. Như vậy f 
là toàn ánh. Mặt khác do giả thiết f là chỉnh hợp không lặp nên f là đơn ánh. Ta có tương ứng 1-1 
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giữa các phần tử của X và S, do đó f là song ánh. Vậy nên ta có thể định nghĩa một hoán vị của S là 
một song ánh giữa {1, 2,..., n} và S. 
Số hoán vị của tập gồm n phần tử = số chỉnh hợp không lặp chập n: 


P, =n! 

1.4. TÔ HỢP 
Một tập con gồm k phần tử của S được gọi là một tỗ hợp chập k của S. 
Lấy một tập con k phần tử của S, xét tất cả k! hoán vị của tập con này. Dễ thấy rằng các hoán vị đó 
là các chỉnh hợp không lặp chập k của S. Ví dụ lấy tập {A, B, C} là tập con của tập S trong ví dụ 
trên thì: (A, B, C), (C, A, B), B, C, A), ... là các chỉnh hợp không lặp chập 3 của S. Điều đó tức là 
khi liệt kê tất cả các chỉnh hợp không lặp chập k thì mỗi tổ hợp chập k sẽ được tính k! lần. Vậy: 

Số tổ hợp chập k của tập gồm n phần tử: 

eh A: —— TH 
"KM kln-k)! 


Số tập con của tập n phần tử: 


C?j+C;+..+C? =2" 


Lê Minh Hoàng 
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§2. PHƯƠNG PHÁP SINH (GENERATION) 


Phương pháp sinh có thể áp dụng để giải bài toán liệt kê tổ hợp đặt ra nếu như hai điều kiện sau 
thoả mãn: 
e Có thể xác định được một thứ tự trên tập các cấu hình tô hợp cân liệt kê. Từ đó có thể biết 
đượccấu hình đầu tiên và cấu hình cuối cùng trong thứ tự đó. 
e Xây dựng được thuật toán từ một cấu hình chưa phải cấu hình cuỗi, sinh ra được cấu hình 
kế tiếp nó. 
Phương pháp sinh có thể mô tả như sau: 
<Xây dựng cấu hình đầu tiên>; 
repeat : 
<Đưa ra câu hình đang có>; f KSE 
<Từ câu hình đang có sinh ra câu hình kê tiệp nêu còn>; 
until <hêt câu hình>; 
Thứ tự từ điễn 
Trên các kiểu đữ liệu đơn giản chuẩn, người ta thường nói tới khái niệm thứ tự. Ví dụ trên kiểu số 
thì có quan hệ: 1 <2; 2 < 3; 3 < 10; ...., trên kiểu ký tự Char thì cũng có quan hệ 'A' < 'B'; 'C' < 'e'... 
Xét quan hệ thứ tự toàn phần "nhỏ hơn hoặc bằng" ký hiệu "<" trên một tập hợp S, là quan hệ hai 
ngôi thoả mãn bốn tính chất: 
Với Va,b,c e S 
Tính phổ biến: Hoặc là a < b, hoặc b < a; 
Tính phản xạ: a < a 
Tính phản đối xứng: Nếu a < b và b < a thì bắt buộc a = b. 
Tính bắc cầu: Nếu có a < b và b < c thì a < c. 
Trong trường hợp a < b và a # b, ta dùng ký hiệu "<" cho gọn, (ta ngầm hiểu các ký hiệu như >, >, 


khỏi phải định nghĩa) 


Ví dụ như quan hệ "<" trên các số nguyên cũng như trên các kiểu vô hướng, liệt kê là quan hệ thứ tự 
toàn phần. 

Trên các dãy hữu hạn, người ta cũng xác định một quan hệ thứ tự: 

Xét a = (ai, %2, ..., an) và b = (bị, bạ, ..., bạ); trên các phần tử của at, ..., an, Dị, ..., bạ đã có quan hệ 
thứ tự "<". Khi đó a < b nếu như 

Hoặc a = bi với VI: 1 <1<n. 

Hoặc tòn tại một số nguyên dương k: 1 <k<n để: 


ai = bị 
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a: = bạ 
ai = bki 
ak = bk 


akı < ben 
Trong trường hợp này, ta có thê viết a < b. 
Thứ tự đó gọi là thứ tự từ điển trên các dãy độ dài n. 
Khi độ dài hai dãy a và b không bằng nhau, người ta cũng xác định được thứ tự từ điển. Bằng cách 
thêm vào cuối dãy a hoặc dãy b những phàn tử đặc biệt gọi là phần tử Ø để độ dài của a và b bằng 
nhau, và coi những phần tử Ø này nhỏ hơn tất cả các phần tử khác, ta lại đưa về xác định thứ tự từ 
điển của hai dãy cùng độ dài. Ví dụ: 
(1,2, 3, 4) < (5, 6) 
(a, b, c) < (a, b, c, đ) 


'calculator' < computer! 
2.1. SINH CÁC DAN NHỊ PHÂN ĐỘ DAIN 


Một dãy nhị phân độ dài n là một dãy x = xıx2...Xn trong đó xi € {0, 1} (Vi: 1 <i<n). 

Dễ thấy: một dãy nhị phân x độ dài n là biểu diễn nhị phân của một giá trị nguyên p(x) nào đó nằm 
trong đoạn [0, 2" - 1]. Số các dãy nhị phân độ dài n = số các số nguyên e [0, 2"- 1] = 2". Ta sẽ lập 
chương trình liệt kê các dãy nhị phân theo thứ tự từ điển có nghĩa là sẽ liệt kê lần lượt các dãy nhị 
phân biĉu diễn các số nguyên theo thứ tự 0, 1,..., 2"-]. 

Ví dụ: Khi n = 3, các dãy nhị phán độ dài 3 được liệt kê nhu sau: 


EU) « l|! c7 SES i 32» l||-Š 5E, cÍ| s82 - || ốc “l8. Ee 
x | 000 | 001 | 010 | 011 | 100 | 1017 | 110 | 1 
Như vậy dãy đâu tiên sẽ là 00...0 và dãy cuôi cùng sẽ là 11...1. Nhận xét răng nêu dãy x = (xı, 


xa, ..., Xn) là đãy đang có và không phải dãy cuối cùng thì dãy ké tiếp sẽ nhận được bằng cách cộng 
thêm 1 ( theo cơ số 2 có nhớ) vào dãy hiện tại. 


Vi dụ khi n = 8: 


Dãy dang có: 10010000 Dãy đang có: 10010111 
cộng thêm 1: +1 cộng thêm 1: +1 
Dãy mới: 10010001 Dãy mới: 10011000 


Như vậy kỹ thuật sinh cu hình kế tiếp từ cấu hình hiện tại có thể mô tả như sau: Xét từ cuối 
dãy về đầu (xét từ hàng đơn vị lên), gặp số 0 đầu tiên thì thay nó bằng số 1 và đặt tất cả các phân 
tử phía sau vị trí đó bằng 0. 

i := n; 

while (i > 0) and (x; = 1) do i := i - 1; 


if i > 0 then 
begin 
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xi :Z 1; 
for j := i + 1 to n do x; := 0; 
end; 
Dữ liệu vào (Input): nhập từ file văn bản BSTR.INP chứa sô nguyên duong n < 30 
Kết quả ra (Output): ghi ra file văn bản BSTR.OUT các dãy nhị phân độ dài n. 
BSTR. INP | BSTR.0UT 
3 000 
001 
010 
011 
100 
101 
110 
111 


program Binary_Strings; 


const 
TnputFile = 'BSTR.INP'; 
OutputFile = 'BSTR.OUT' ; 
max = 30; 

var 


x: array[1..max] of Integer; 
n, i: Integer; 
f: Text; 
begin 
Assign(f, InputFile); Reset(f) ; 
ReadIn (f, n); 


Close (f); 
Assign(f, OutputFile); Rewrite (f); 
FillChar(x, Size0f(x), 0); (Câu hình ban đầu x; = x, = . = X, := 0} 


repeat (Thuật toán sinh} 
for i := 1 to n do Write(f, x[i]); (In ra câu hình hiện tại) 
WriteIn (£) ; 
i :=n; {x; là phần tử cuối dãy, lùi dần i cho tới khi gặp số 0 hoặc khi i = 0 thì dùng} 
while (i > 0) and (x[i] = 1) do Dec(i) ; 
if i > 0 then {Chua gặp phải cấu hình 11.1} 


begin 
x[i] := 1; (Thay x; bằng số 1} 
FillChar(x[i + 1], (n - i) * 5ize0f(x[1]), 0); (Đặt Xi 1 = X142 =m = Xp e 0} 
end; 
until i = 0; {Đã hét cấu hình) 
Close (£) ; 


end. 


2.2. LIỆT KÊ CÁC TẬP CON K PHẢN TỬ 


Ta sẽ lập chương trình liệt kê các tập con k phần tử của tập {1, 2, ..., n} theo thứ tự từ điền 
Vĩ dụ: với n = 5, k = 3, ta phải liệt kê đủ 10 tập con: 


1.{1, 2, 3} 2.{1, 2, 4) 3.1, 2, 5} 4.41, 3, 4} 5.(1, 3, 5} 
6.{1, 4, 5} 7.{2, 3, 4) 8.(2, 3, 5} 9.12, 4, 5} 10.{3, 4, 5} 
Như vậy tập con đâu tiên (câu hình khởi tạo) là {1, 2, ..., k}. 


Cấu hình kết thúc là {n - k+ 1,n-k+2,..., n}. 
Nhận xét: Ta sẽ In ra tập con bằng cách in ra lần lượt các phần tử của nó theo thứ tự tăng dần. Từ đó, 
ta có nhận xét nếu x = {XI, Xa, ..., Xk} Và X1 < X2 <... < Xy thì giới hạn trên (giá trị lớn nhất có thể 


nhận) của xx là n, của gv là n - 1, của za là n - 2... 
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Cụ thé: giới hạn trên của x; = n - k + i; 
Còn tất nhiên, giới hạn dưới của x; (giá trị nhỏ nhất x; có thể nhận) là x¡.¡ + 1. 
Như vậy nếu ta đang có một dãy x đại diện cho một tập con, nếu x là cấu hình kết thúc có nghĩa là 
tất cả các phần tử trong x đều đã đạt tới giới hạn trên thì quá trình sinh kết thúc, nếu không thì ta 
phải sinh ra một dãy x mới tăng dần thoả mãn vừa đủ lớn hơn dãy cũ theo nghĩa không có một tập 
con k phần tử nào chen giữa chúng khi sắp thứ tự từ điển. 
Ví dụ: n = 9, k = 6. Cấu hình đang có x = {1, 2, 6, 7, 8, 9). Các phần tử x; đến xs đã đạt tới giới 
hạn trên nên đề sinh cầu hình mới ta không thể sinh bằng cách tăng một phần tử trong số các xạ xs, 
xạ x3 lên được, ta phải tăng xz = 2 lên thành xz = 3. Được cấu hình mới là x = {1, 3, 6, 7, 8, 9}. Cấu 
hình này đã thoả mãn lớn hơn cầu hình trước nhưng chưa thoả mãn tính chất vừa đủ lớn muốn vậy 
ta lại thay x3, X4, X5, X6 bằng các giới hạn dưới của nó. Tức là: 

e x;:=x;ạ+l=4 

e x¿:=x;+1I=ðô5 

e x;:=x¿†+l=6 

® x¿:=x;T+lI=7 
Ta được cấu hình mới x = {1, 3, 4, 5, 6, 7} là cầu hình kế tiếp. Nếu muốn tìm tiếp, ta lại nhận thấy 
rằng xạ = 7 chưa đạt giới hạn trên, như vậy chỉ cân tăng ze lên 1 là được x = {1, 3, 4, 5, 6, 8}. 
Vậy kỹ thuật sinh tập con kế tiếp từ tập đã có x có thể xây dựng như sau: 
Tìm từ cuối dãy lên đầu cho tới khi gặp một phần tử x; chưa đạt giới hạn trên n - k + i. 


L ren: 
while (i > 0) and (x=n-k+i) doi :=i - 1; 
(1, 2, 6, 7, 8, Y; 
Nêu tìm thây: 
if i > 0 then 
Tăng x; đó lên 1. 


Xi ;Z Xị † 1; 


(1, 3, 6, 7, 8, 9) 
Đặt tất cả các phần tử phía sau x; bằng giới hạn dưới: 
for j := i + 1 to k do xj := xj; + 1; 
(1, 3, 4, %, 6, 7) 
Input: file văn bản SUBSET.INP chứa hai số nguyên dương n, k (1 < k < n < 30) cách nhau ít nhất 
một dấu cách 


Output: file văn bản SUBSET.OUT các tập con k phần tử của tập {1, 2,..., n} 
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SUBSET. INP EE DUT 
33 


ës ƠI e 


r 


cn 


r 


r 


Í; 
1 
1 
1 
2, 
2 
2 
3 


+> 


cn 


r 


cn 


r 


H, 
1, 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 


E AM e Ge ee re 
cn 


cn 


H 


program Combination; 


const 
InputFile = 'SUBSET.INP'; 
OutputFile = 'SUBSET.OUT' ; 
max = 30; 

var 


x: array[1..max] of Integer; 
n, k, i, j: Integer; 
f: Text; 
begin 
Assign(f, InputFile); Reset(f) ; 
Readln (f, n, k); 


Close (£) ; 

Assign (f, OutputFile); Rewrite (f); 

for i := 1 to k do xli] := i; {x := 1; xy i= 2; . ; X; :=k — (Cấu hình khởi tạo)) 
repeat 


{In ra cấu hình hiện tại) 
Write(f, '{'); 


for i := 1 to k - 1 do Write(f, x[i], ', '); 
Writeln(f, x[k], "ul: 
{Sinh tiếp) 


i := k; {x; là phần tủ cuối dãy, lùi dần i cho tới khi gặp một x; chưa đạt giới hạn trên n - k +i} 
while (i > 0) and (x[i] =n - k + i) do Dec(i) ; 
if i > 0 then ¿Nếu chưa lùi đến 0 có nghĩa là chưa phải cấu hình kết thúc} 
begin 
Inc(x[i]); (Tăng x; lên 1, Đặt các phần tử đứng sau x; bằng giới hạn dưới của nó] 
for j := i + 1 to k do x[j] := x[j - 1] +1; 
end; 
until i = 0; (lùi đến tận 0 có nghĩa là tất cả các phần tử đã đạt giới hạn trên - hết cấu hình) 
Close (£) ; 
end. 


2.3. LIỆT KÊ CÁC HOÁN VỊ 


Ta sẽ lập chương trình liệt kê các hoán vị của {1, 2, ..., n} theo thứ tự từ điền. 
Vĩ dụ với n = 4, ta phải liệt kê đủ 24 hoán vị: 

1.1234 2.1243 3.1344 4.1342 5.1423 6.1432 

7.2134 9.2143 9.2314 10.2341 11.2413 12.2431 


13.3124 14.3142 15.3214 16.3241 17.3412 18.3421 
19.4123 20.4132 21.4213 22.4231 23.4312 24.4321 


Như vậy hoán vị đầu tiên sẽ là (1, 2, ..., n). Hoán vị cuối cùng là (n, n-1, ... , 1). 

Hoán vị sẽ sinh ra phải lớn hơn hoán vị hiện tại, hơn thế nữa phải là hoán vị vừa đủ lớn hơn hoán vi 
hiện tại theo nghĩa không thể có một hoán vị nào khác chen giữa chúng khi sắp thứ tự. 

Giả sử hoán vị hiện tại là x = (3, 2, 6, 5, 4, 1), xét 4 phần tử cuối cùng, ta thấy chúng được xếp giảm 


dân, điêu đó có nghĩa là cho dù ta có hoán vị 4 phân tử này thê nào, ta cũng được một hoán vị bé 
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hơn hoán vị hiện tại!. Như vậy ta phải xét đến x2 = 2, thay nó bằng một giá trị khác. Ta sẽ thay 
bằng giá trị nào?, không thể là 1 bởi nếu vậy sẽ được hoán vị nhỏ hơn, không thê là 3 vì đã có x1 = 
3 rồi (phần tử sau không được chọn vào những giá trị mà phần tử trước đã chọn). Còn lại các giá trị 
4,5,6. Vì cần một hoán vị vừa đủ lớn hơn hiện tại nên ta chọn x2 = 4. Còn các giá tri (Xa, X4, X5, X6) 
sẽ lấy trong tập {2, 6, 5, 1}. Cũng vì tính vừa đủ lớn nên ta sẽ tìm biểu diễn nhỏ nhất của 4 số này 
gán cho xa, X4, X5, X6 tức là (1, 2, 5, 6). Vậy hoán vị mới sẽ là (3, 4, 1, 2, 5, 6). 
(3,2, 6, 5, 4, I)—> (3, 4, 1, 2, 5, 6). 
Ta có nhận xét gì qua ví dụ này: Đoạn cuối của hoán vị được xếp giảm dàn, số xs = 4 là số nhỏ nhất 
trong đoạn cuối giảm dần thoả mãn điều kiện lớn hơn xạ = 2. Nếu đổi chỗ x5 cho xz thì ta sẽ được x2 
= 4 và đoạn cuối vẫn được sắp xếp giảm dần. Khi đó muốn biểu diễn nhỏ nhất cho các giá trị 
trong đoạn cuối thì ta chỉ cần đảo ngược đoạn cuối. 
Trong trường hợp hoán vị hiện tại là (2, 1, 3, 4) thì hoán vị kế tiếp sẽ là (2, 1, 4, 3). Ta cũng có thể 
coi hoán vi (2, 1, 3, 4) có đoạn cuối giảm dần, đoạn cuối này chỉ gồm 1 phần tử (4) 
Vậy kỹ thuật sinh hoán vị kế tiếp từ hoán vị hiện tại có thể xây dựng như sau: 
e Xác định đoạn cuối giảm dân dài nhất, tìm chỉ số i của phần tử x; đứng liên trước đoạn cuối 
đó. Điêu này đông nghĩa với việc tìm từ vị trí sát cuối dãy lên đâu, gặp chỉ số i dâu tiên thỏa 
mãn xi < x¡+¡. Nếu toàn dãy đã là giảm dân, thì đó là cấu hình cuối. 


i:=n-1; 
while (i > 0) and (x; > xin) do i := i - 1; 


e Trong đoạn cuôi giảm dân, tim phán tử x; nhỏ nhát thoả mãn điễu kiện zu > xi Do đoạn 
cuối giảm dân, điêu này thực hiện băng cách tìm từ cuối dãy lên đâu gặp chỉ số k đầu tiên 
thoả mãn xạ > xi (có thê dùng tìm kiêm nhị phán). 

k := n; 

while x, < x; do k := k - 1; 

e - Đôi chô x, và xị lật ngược thứ tự đoạn cuối giảm dán (từ rer dên zu trở thành tăng dán. 


Input: file văn bản PERMUTE.INP chứa số nguyên dương n < 12 
Output: file văn bản PERMUTE.OUƯT các hoán vị của dãy (1, 2, ..., n) 


PERMUIE.INP | PERMUTE .OUT 
3 123 
132 
213 
231 
312 
321 


program Permutation; 


const 
InputFile = 'PERMUTE.INP'; 
OutputFile = 'PERMUTE.OUT'; 
max = 12; 

var 


n, i, k, a, b: Integer; 
x: array[1..max] of Integer; 
f: Text; 
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procedure Swap (var X, Y: Integer); (Thủ tục đảo giá trị hai tham bién X, Y} 
Var 
Temp: Integer; 
begin 
Temp := X; X := Y; Y := Temp; 
end; 


begin 
Assign(f, InputFile); Reset(f) ; 
ReadIn (f, n); 


Close (f); 
Assign(f, OutputFile); Rewrite (f); 
for i := 1 to n do x[i] := i; (Khởi tạo cấu hình đầu: xị := 1; xp := 2; m, Xn i= n} 
repeat 
for i := 1 to n do Write(f, x[i], ' '); {In ra cấu hình hoán vị hiện tại) 
WriteLn (£) ; 
1 >1; 


while (i > 0) and (x[i] > x[i + 1]) do Dec (i); 
if i > 0 then {Chua gặp phải hoán vị cuối (n, n-1, m ,1)} 
begin 
k := n; Ia, là phần tử cuối dãy) 
while x[k] < x[i] do Dee(k}; bùi dần k để tìm gặp x, đầu tiên lớn hơn x; } 
Sưap(x[k], x[i]); (Đổi chỗ x; và zl 
a :=i+1;b :=n; (Lật ngược đoạn cuối giảm dàn, a: đầu đoạn, b: cuối đoạn} 
while a < b do 
begin 
Sưap(x[a], x[b]); (Đổi chỗ x, và xp} 
Inc(a); (Tiến a và lùi b, đổi chỗ tiếp cho tới khi a, b chạm nhau) 
Dec (b) ; 
end; 
end; 
until i = 0; {Toàn dãy là dãy giảm dần - không sinh tiếp được - hết cấu hình) 
Close (£) ; 
end. 
Bài tập: 
Bài 1 
Các chương trình trên xử lý không tốt trong trường hợp tầm thường, đó là trường hợp n = 0 đối với 
chương trình liệt kê dãy nhị phân cũng như trong chương trình liệt kê hoán vị, trường hợp k = 0 đối 
với chương trình liệt kê tổ hợp, hãy khắc phục điều đó. 
Bài 2 
Liệt kê các dãy nhị phân độ dài n có thể coi là liệt kê các chỉnh hợp lặp chập n của tập 2 phần tử {0, 
1}. Hãy lập chương trình: 
Nhập vào hai số n và k, liệt kê các chỉnh hợp lặp chập k của {0, 1, ... n -1}. 
Gợi ý: thay hệ cơ số 2 bằng hệ cơ số n. 
Bài 3 
Hãy liệt kê các dãy nhị phân độ dài n mà trong đó cụm chữ số "01" xuất hiện đúng 2 lần. 
Bài 4. 
Nhập vào một danh sách n tên người. Liệt kê tất cả các cách chọn ra đúng k người trong số n người 


đó. 
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Gợi ý: xây dựng một ánh xạ từ tập {1, 2, ..., n} đến tập các tên người. Ví dụ xây dựng một mảng 
Tên: Tên[1] := Nguyễn văn A'; Tên[2] := "Trần thị B';.... sau đó liệt kê tất cả các tập con k phần tử 
của tập {1, 2, ...., n}. Chỉ có điều khi in tập con, ta không in giá trị só {1, 3, 5} mà thay vào đó sẽ in 
ra {Tên[1], Tên [3], Tên[Š]}. Tức là in ra ảnh của các giá trị tìm được qua ánh xạ 

Bài 5 

Liệt kê tất cả các tập con của tập {1, 2, ..., n}. Có thể dùng phương pháp liệt kê tập con như trên 
hoặc dùng phương pháp liệt kê tất cả các dãy nhị phân. Mỗi số 1 trong dãy nhị phân tương ứng với 
một phần tử được chọn trong tập. Ví dụ với tập {1, 2, 3, 4} thì dãy nhị phân 1010 sẽ tương ứng với 
tập con {1, 3}. Hãy lập chương trình in ra tất cả các tập con của {1, 2, ..., n} theo hai phương pháp. 

Bài 6 

Nhập vào danh sách tên n người, in ra tất cả các cách xếp n người đó vào một bàn 

Bài 7 

Nhập vào danh sách n bạn nam và n bạn nữ, In ra tất cả các cách xếp 2n người đó vào một bàn tròn, 
mỗi bạn nam tiếp đến một bạn nữ. 

Bài 8 

Người ta có thể dùng phương pháp sinh để liệt kê các chỉnh hợp không lặp chập k. Tuy nhiên có 
một cách khác là liệt kê tất cả các tập con k phần tử của tập hợp, sau đó in ra đủ k! hoán vi của nó. 
Hãy viết chương trình liệt kê các chỉnh hợp không lặp chập k của {1, 2, ..., n} theo cả hai cách. 

Bài 9 

Liệt kê tất cả các hoán vị chữ cái trong từ MISSISSIPPI theo thứ tự từ điền. 

Bài 10 

Liệt kê tất cả các cách phân tích số nguyên đương n thành tổng các số nguyên dương, hai cách phân 


tích là hoán vi của nhau chỉ tính là một cách. 


Cuối cùng, ta có nhận xét, mỗi phương pháp liệt kê đều có ưu, nhược điểm riêng và phương pháp 
sinh cũng không nằm ngoài nhận xét đó. Phương pháp sinh không thể sinh ra được cấu hình thứ 
p nếu như chưa có cấu hình thứ p - 1, chứng tỏ rằng phương pháp sinh tỏ ra ưu điểm trong trường 
hợp liệt kê toàn bộ một số lượng nhỏ cấu hình trong một bộ dữ liệu lớn thì lại có nhược điểm và 
ít tính phố dụng trong những thuật toán duyệt hạn chế. Hơn thế nữa, không phải cấu hình ban đầu 
lúc nào cũng dễ tìm được, không phải kỹ thuật sinh cầu hình kế tiếp cho mọi bài toán đều đơn giản 
như trên (Sinh các chỉnh hợp không lặp chập k theo thứ tự từ điển chẳng hạn). Ta sang một chuyên 
mục sau nói đến một phương pháp liệt kê có tính phố dụng cao hơn, để giải các bài toán liệt kê 


phức tạp hơn đó là: Thuật toán quay lui (Back tracking). 
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§3. THUẬT TOÁN QUAY LUI 


Thuật toán quay lui dùng để giải bài toán liệt kê các cấu hình. Mỗi cấu hình được xây dựng 
bằng cách xây dựng từng phần tử, mỗi phần tử được chọn bằng cách thử tất cả các khả năng. 
Giả thiết cấu hình cần liệt kê có dạng (X1, xa...., xạ). Khi đó thuật toán quay lui thực hiện qua các 
bước sau: 

1) Xét tất cả các giá trị xı có thể nhận, thử cho x¡ nhận lần lượt các giá trị đó. Với mỗi giá trị thử gán 

cho x; ta sẽ: 

2) Xét tất cả các giá trị xạ có thê nhận, lại thử cho x nhận lần lượt các giá trị đó. Với mỗi giá trị thử 


gán cho xa lại xét tiêp các khả năng chọn x; ... cứ tiêp tục như vậy dën bước: 


n) Xét tất cả các giá trị xạ có thể nhận, thử cho x„ nhận lần lượt các giá trị đó, thông báo cấu hình tìm 
được (Xị, X2, ..., Sol 
Trên phương diện quy nạp, có thể nói rằng thuật toán quay lui liệt kê các cấu hình n phần tử dạng 
(XI, X2, un Xn) bằng cách thử cho xı nhận lần lượt các giá tri có thể. Với mỗi giá trị thử gán cho x; lại 
liệt kê tiếp cấu hình n - 1 phần tử (xa, X3, ..., Xn). 
Mô hình của thuật toán quay lui có thể mô tả như sau: 


{Thủ tục này thử cho x; nhận lần lượt các giá trị mà nó có thể nhận] 
procedure Try(i: Integer); 
begin 
for (mọi giá trị V có thể gán cho x;) do 
begin 
<Thử cho x; := V>; 
if (x; là phần tử cuối cùng trong cấu hình) then 
<Thông báo câu hình tìm được> 
else 
begin 
<Ghi nhận việc cho x; nhận giá trị V (Nếu cần) >; 
Try(i + 1); (cọi đệ quy để chọn tiếp xin} 
<Nêu cần, bỏ ghi nhận việc thử x; := V, dê thử giá trị khác>; 
end; 
end; 
end; 


Thuật toán quay lui sẽ bắt đầu bằng lời gọi Try(1) 
3.1. LIỆT KÊ CÁC DÃY NHỊ PHÂN ĐỘ DÀI N 


Input/Output với khuôn dạng như trong P_1_02_1.PAS 
Biểu diễn dãy nhị phân độ dài N dưới dạng (X1, X2, ..., xạ). Ta sẽ liệt kê các dãy này bằng cách thử 
dùng các giá trị {0, 1} gán cho xi. Với mỗi giá trị thử gán cho x; lại thử các giá trị có thể gán cho 


x¡.¡.Chương trình liệt kê bằng thuật toán quay lui có thể viết: 


program BinaryStrings; 
const 
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TnputFile = 'BSTR.INP'; 
OutputFile = 'BSTR.OUT' ; 
max = 30; 

var 
x: array[1..max] of Integer; 
n: Integer; 
f: Text; 


procedure PrintResult; (In cấu hình tìm được, do thủ tục tìm đệ quy Try gọi khi tìm ra một cấu hình) 


var 
i: Integer; 

begin 
for i := 1 to n do Write(f, x[i]); 
Writeln (f); 

end; 


procedure Try(i: Integer); (Thủ các cách chọn x:} 
var 
j: Integer; 
begin 
for j := 0 to 1 do {Xét các giá trị có thể gán cho x;, với mỗi giá trị đó} 
begin 
x[i] e j; (Thủ đặt x: 
if i = n then PrintResult (Nếu i = n thì in kết quả) 
else Try(i + 1); (Nếu i chua phải là phần tủ cuối thì tìm tiếp xin} 
end; 
end; 


begin 
Assign (f, TnputFile); Reset(f) ; 
ReadIn (f, n); (Nhập dp liệu} 
Close (£) ; 
Assign (f, OutputFile); Rewrite (f); 
Try(1); (Thủ các cách chọn giá trị xı} 
Close (£) ; 

end. 


Ví dụ: Khi n = 3, cây tìm kiếm quay lui như sau: 


Hình 1: Cây tìm kiếm quay lui trong bài toán liệt kê dãy nhị phân 


3.2. LIỆT KÊ CÁC TẬP CON K PHẢN TỬ 


Input/Output có khuôn dạng như trong P_1_02_2.PAS 
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Đê liệt kê các tập con k phân tử của tập S = {1, 2, ..., n} ta có thê đưa vê liệt kê các câu hình (xı, 
Xa,..., Xk) ở đây các xi € S và xị < Xạ<... < Xk. Ta có nhận xét: 
Xk <n 


Xk1ıSXk-1<n-1 
xi<s<n-k+i 


x;<Sn-k+]. 

Từ đó suy ra xi- + 1 <x¡<n -k+i(1 < i< k) ở đây ta giả thiết có thêm một số xo = 0 khi xét i = 1. 
Như vậy ta sẽ xét tất cả các cách chọn xı từ 1 (=xo + 1) đến n - k + 1, với mỗi giá trị đó, xét tiếp tất 
cả các cách chọn xz từ x¡ + 1 đến n - k + 2,... cứ như vậy khi chọn được đến xạ thì ta có một cấu 


hình cần liệt kê. Chương trình liệt kê bằng thuật toán quay lui như sau: 


program Combination; 

const 
InputFile = 'SUBSET.INP'; 
OutputFile = 'SUBSET.0UT'; 
max = 30; 

var 
x: array[0..max] of Integer; 
n, k: Integer; 
f: Text; 


procedure PrintResult; (*In ra tập con {X;, X;, mr X;}*) 
var 
i: Integer; 
begin 
Write(f, '{'); 
for i := 1 to k - 1 do Write(f, x[i], ', '); 
WriteIn(f, x[k], '}'); 
end; 


procedure Try(i: Integer); (Thủ các cách chọn giá trị cho x[i]} 
var 
j: Integer; 
begin 
for j := x[i - 1] +1ton-k+ido 
begin 
xli] := j; 
if i = k then PrintResult 
else Try(i + 1); 
end; 
end; 


begin 
Assign(f, InputFile); Reset(F) ; 
Readln (f, n, k); 
Close (f); 
Assign(f, OutputFile); Rewrite (f); 
x[0] := 0; 
Try(1); 
Close (£) ; 
end. 
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Nếu để ý chương trình trên và chương trình liệt kê dãy nhị phân độ dài n, ta thấy về cơ bản chúng 
chỉ khác nhau ở thủ tục Try() - chọn thứ các giá trị cho x, ở chương trình liệt kê dãy nhị phân ta 
thử chọn các giá trị 0 hoặc 1 còn ở chương trình liệt kê các tập con k phân tử ta thử chọn x; là một 
trong các giá trị nguyên từ xı + 1 đến n - k + i. Qua đó ta có thể thấy tính phố dụng của thuật toán 
quay lui: mô hình cài đặt có thể thích hợp cho nhiễu bài toán, khác với phương pháp sinh tuân tự, 
với méi bài toán lại phải có một thuật toán sinh kế tiếp riêng làm cho việc cài đặt môi bài một khác, 
bên cạnh đó, không phải thuật toán sinh kế tiếp nào cũng dê cài đặt. 

3.3. LIỆT KÊ CÁC CHÍNH HỢP KHÔNG LẶP CHẬP K 

Đề liệt kê các chỉnh hợp không lặp chập k của tập S = {1, 2, ..., n} ta có thể đưa về liệt kê các cấu 
hình (xı, xa, ..., Xk) ở đây các xi € S và khác nhau đôi một. 

Như vậy thủ tục Try() - xét tất cả các khả năng chọn x; - sẽ thử hết các giá trị từ 1 dënn, mà các giá 
trị này chưa bị các phần tử đứng trước chọn. Muốn xem các giá trị nào chưa được chọn ta sử dụng 
kỹ thuật dùng mảng đánh dấu: 

Khởi tạo một mảng c1, ca, ..., Cn mang kiểu logic. Ở đây c¡ cho biết giá tri i có còn tự do hay đã bị 
chọn rồi. Ban đầu khởi tạo tất cả các phần tử mảng c là TRUE có nghĩa là các phần tử từ 1 dënn 
đều tự do. 

Tại bước chọn các giá trị có thê của x; ta chỉ xét những giá trị j có cj = TRUE có nghĩa là chỉ chọn 
những giá trị tự do. 

Trước khi gọi đệ quy tìm xi+1: ta đặt giá trị j vừa gán cho xi là đã bị chọn có nghĩa là đặt cj := 
FALSE để các thủ tục Try( + 1), Try(¡ + 2)... gọi sau này không chọn phải giá trị j đó nữa 

Sau khi gọi đệ quy tìm x¡:¡: có nghĩa là sắp tới ta sẽ thử gán một giá trị khác cho xi thì ta sẽ đặt giá 
trị j vừa thử đó thành tự do (cj := TRUE), bởi khi xi đã nhận một giá trị khác rồi thì các phần tử 
đứng sau: xi+1, xi+2 ... hoàn toàn có thé nhận lại giá trị j đó. Điều này hoàn toàn hợp lý trong phép 
xây dựng chỉnh hợp không lặp: x1 có n cách chọn, x2 có n - 1 cách chọn, ...Lưu ý rằng khi thủ tục 
Try() có i = k thì ta không cần phải đánh dấu gì cả vì tiếp theo chỉ có in kết quả chứ không cần phải 
chọn thêm phần tử nào nữa. 

Input: file văn bản ARRANGE.INP chứa hai số nguyên dwong n, k (1 < k < n < 20) cách nhau ít 
nhất một dấu cách 

Output: file văn bản ARRANGE.OUT ghi các chỉnh hợp không lặp chập k của tập {1, 2, ..., n} 


ARRANGE. INP | ARRANGE.OUT 
32 12 
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program Arrangement; 

const 
InputFile = 'ARRANGES.TNP'; 
OutputFile = 'ARRANGES.OUT' ; 
max = 20; 

var 
x: array[1..max] of Integer; 
c: array[1..max] of Boolean; 
n, k: Integer; 
f: Text; 


procedure PrintResult; (Thủ tục in câu hình tìm được) 
var 
1: Integer; 
begin 
for i := 1 to k do Write(f, x[i],' '); 
Writenn (£) ; 
end; 


procedure Try(i: Integer); {Thủ các cách chọn x:} 
Var 
j: Integer; 
begin 
for j := 1 to n do 
if c[j] then {Chi xét những giá trị j còn tự do} 
begin 
xli] := j; | | | 
if i = k then PrintResult (Nêu đã chọn được dën xk thì chỉ việc in kêt quả} 
else 
begin 
c[j] : 
Try(i 
c[j] : 
end; 
end; 


False; (Đánh dáu: j đã bị chọn] 
1); (Thủ tục này chỉ xét những giá trị còn tự do gán cho xi}, tức là sẽ không chọn phải j} 
True; {Bỏ đánh dấu: j lại là tự do, bởi sắp tới sẽ thử một cách chọn khác của zl 


"+ Ni 


end; 
begin 
Assign(f, InputFile); Reset(f) ; 
Readln (f, n, k); 
Assign (f, OutputFile); Rewrite (f); 
FillChar(c, Size0f (c), True); {Tát cả các số dèu chưa bị chọn) 
Try(1); (Thủ các cách chọn giá trị của zl 
Close (£) ; 
end. 


Nhận xét: khi k = n thì đây là chương trình liệt kê hoán vi 


3.4. BÀI TOÁN PHÂN TÍCH SO 


3.4.1. Bài toán 


Cho một số nguyên dương n < 30, hãy tìm tất cả các cách phân tích số n thành tông của các số 


nguyên dương, các cách phân tích là hoán vị của nhau chỉ tính là 1 cách. 


3.4.2. Cách làm: 
Ta sẽ lưu nghiệm trong mảng x, ngoài ra có một mảng t. Mảng t xây dựng như sau: t; sẽ là tổng các 


phần tử trong mảng x từ xị đến xi: ti =x] +Xa+... +Xị. 
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Khi liệt kê các dãy x có tông các phần tử đúng bằng n, để tránh sự trùng lặp ta đưa thêm ràng buộc 
Xi-1 Š Xi. 
Vì số phần tử thực sự của mång x là không có định nên thủ tục PrintResult dùng để in ra 1 cách 
phân tích phải có thêm tham số cho biết sẽ in ra bao nhiêu phần tử. 
Thủ tục đệ quy Try(i) sẽ thử các giá trị có thể nhận của x; (Xi > X¡- 1) 
Khi nào thì in kết quả và khi nào thì gọi đệ quy tìm tiếp ? 
Lưu ý răng tị. ¡ là tổng của tất cả các phần tử từ xı đến x¡¡ do đó 
Khi tị = n tức là (x¡= n - t¡. ¡) thì in kết quả 
Khi tìm tiếp, x¡.¡ sẽ phải lớn hơn hoặc bằng Xi. Mặt khác t;.¡ là tổng của các số từ xı tới Sr không 
được vượt quá n. Vậy ta có ti <n © tiị + Xi + Xi SN S xị +xX¡‡i <n-t¡.¡ tức là x; < (n - tị. 1⁄2. 
Vi dụ đơn giản khi n = 10 thì chọn xı = 6, 7, 8, 9 là việc làm vô nghĩa vì như vậy cũng không ra 
nghiệm mà cũng không chọn tiếp x; được nữa. 
Một cách dễ hiểu ta gọi đệ quy tìm tiếp khi giá trị x; được chọn còn cho phép chọn thêm một 
phân tử khác lớn hơn hoặc bằng nó mà không làm tổng vượt quá n. Còn ta in kết quả chỉ khi 
x; mang giá trị đúng bằng số thiếu hụt của tổng GI phân tử đầu so với n. 
Vậy thủ tục Try() thử các giá trị cho x; có thể mô tả như sau: (để tông quát cho i = 1, ta đặt xo = 1 
và tọ = 0). 
Xét các giá trị của xi từ x¡. ¡ đến (n - t¡¡) div 2, cập nhật tị := ti- ¡ + xi và gọi đệ quy tìm tiếp. 
Cuối cùng xét giá trỊ x; =n - f¡.¡ và In kết quả từ xị đến xi. 


Input: file văn bản ANALYSE.INP chứa số nguyên dương n < 30 


Output: file văn bản ANALYSE.OUT ghi các cách phân tích sô n. 
ANALYSE. INP | ANALYSE..OUT 
6 6 = 11111111111 
6 = 1+1+1+1+2 
6 = 1111113 
6 = 1+1+2+2 
6 = 11114 
6 = 11213 
6 = 115 
6 = 2+2+2 
6 = 2+4 
6 = 3+3 
6=6 


program Analyses; 


const 
InputFile = 'ANALYSE. INP'; 
OutputFile = 'ANALYSE.OUT'; 
max = 30; 

var 
n: Integer; 
x: array[0..max] of Integer; 
t: array[0..max] of Integer; 
f: Text; 
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procedure Init; (Khởi tạo} 

begin 
Assign(f, TnputFile); Reset(f) ; 
ReadIn (f, n); 


Close (£) ; 

x[0] := 1; 

t[0] := 0; 
end; 


procedure PrintResult(k: Integer); 
var 
i: Integer; 
begin 
Write(f, n, ' = '); 
for i := 1 to k - 1 do Write(f, x[i], '†'); 
WriteLn(f, x[k]); 
end; 


procedure Try(i: Integer); 
var 
j: Integer; 
begin 
for j := x[i - 1] to (n - T[i - 1]) div 2 do {Trường hợp còn chọn tiếp Xin} 
begin 
x[i] := j; 
t[i] := t[i - 1] +j; 
Try(i + 1); 
end; 
x[i] := n - T[i - 1]; (Nếu x; là phần tủ cuối thì nó bắt buộc phải là . và in kết quả] 
PrintResult (1) ; 
end; 


begin 
Tnit; 
Assign (f, OutputFile); Rewrite (f); 
Try (1) ; 
Close (£) ; 
end. 


Bây giờ ta xét tiếp một ví dụ kinh điển của thuật toán quay lui: 


3.5. BÀI TOÁN XÉP HẬU 


3.5.1. Bài toán 

Xét bàn cờ tông quát kích thước nxn. Một quân hậu trên bàn cờ có thể ăn được các quân khác nằm 
tại các ô cùng hàng, cùng cột hoặc cùng đường chéo. Hãy tìm các xếp n quân hậu trên bàn cờ sao 
cho không quân nào ăn quân nảo. 


Ví dụ một cách xêp với n = 8: 
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Hình 2: Xếp 8 quân hậu trên bàn cờ 8x8 


3.5.2. Phân tích 

Rõ ràng n quân hậu sẽ được đặt mỗi con một hàng vì hậu ăn được ngang, ta gọi quân hậu sẽ đặt ở 
hàng 1 là quân hậu 1, quân hậu ở hàng 2 là quân hậu 2... quân hậu ở hàng n là quân hậu n. Vậy một 
nghiệm của bài toán sẽ được biết khi ta tìm ra được vị trí cột của những quân hậu. 

Nếu ta định hướng Đông (Phải), Tây (Trái), Nam (Dưới), Bắc (Trên) thì ta nhận thấy rằng: 

e ` Một đường chéo theo hướng Đông Bắc - Tây Nam (ĐB-TN) bất kỳ sẽ đi qua một số ô, các ô 
đó có tính chất: Hàng + Cột = C (Const). Với mỗi đường chéo ĐB-TN ta có 1 hằng số C và 
với một hằng số C: 2 < C < 2n xác định duy nhất 1 đường chéo ĐB-TN vì vậy ta có thể đánh 
chỉ số cho các đường chéo ÐB- TN từ 2 đến 2n 

e ` Một đường chéo theo hướng Đông Nam - Tây Bắc (ĐN-TB) bất kỳ sẽ đi qua một số ô, các ô 
đó có tính chất: Hàng - Cột = C (Const). Với mỗi đường chéo ĐN-TB ta có 1 hằng số C và 


với một hằng số C: 1 -n <C <n - 1 xác định duy nhất 1 đường chéo ĐN-TB vì vậy ta có thể 


đánh chỉ số cho các đường chéo DN. TB từ 1 - n đến n - 1. 
1 2 3 4 5 7 8 


Hình 3: Đường chéo ĐB-TN mang chỉ số 10 và đường chéo ÐN-TB mang chỉ số 0 
Cài đặt: 
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Chuyên đề 


Ta có 3 mảng logic để đánh dấu: 


Máng a[1..n]. a; = TRUE néu nhu cột 1 còn tự do, a; = FALSE nếu như cột 1 đã bị một quân 
hậu khống chế 

Mảng b[2..2n]. bi = TRUE nếu như đường chéo ĐB-TN thứ i còn tự do, bi = FALSE nếu 
như đường chéo đó đã bị một quân hậu khống chế. 

Måne cl - n..n - 1]. ci = TRUE nếu như đường chéo ĐN-TB thứ i còn tự do, ci = FALSE 


nếu như đường chéo đó đã bị một quân hậu khống chế. 


Ban đầu cả 3 mảng đánh dấu đều mang giá trị TRUE. (Các cột và đường chéo đều tự do) 


Thuật toán quay lui: 


Xét tất cả các cột, thử đặt quân hậu 1 vào một cột, với mỗi cách đặt như vậy, xét tất cả các 
cách đặt quân hậu 2 không bị quân hậu 1 ăn, lại thử 1 cách đặt và xét tiếp các cách đặt quân 
hậu 3...Mỗi cách đặt được đến quân hậu n cho ta 1 nghiệm 

Khi chọn vị trí cột j cho quân hậu thứ i, thì ta phải chọn ô(i, j) không bị các quân hậu đặt 
trước đó ăn, tức là phải chọn cột j còn tự do, đường chéo ĐB-TN (i+j) còn tự do, đường 
chéo ĐN-TB(-j) còn tự do. Điều này có thể kiểm tra (aj = biy = ci-j = TRUE) 

Khi thử đặt được quân hậu thứ 1 vào cột J, nếu đó là quân hậu cuối cùng (i = n) thì ta có một 
nghiệm. Nếu không: 

o Trước khi gọi đệ quy tìm cách đặt quân hậu thứ i + 1, ta đánh dấu cột và 2 đường 
chéo bị quân hậu vừa đặt khống chế (aj = bi+j = ci-j := FALSE) để các lần gọi đệ quy 
tiếp sau chọn cách đặt các quân hậu kế tiếp sẽ không chọn vào những ô nằm trên cột 
J và những đường chéo này nữa. 

o Sau khi gọi đệ quy tìm cách đặt quân hậu thứ i + 1, có nghĩa là sắp tới ta lại thử một 
cách đặt khác cho quân hậu thứ i, ta bỏ đánh dấu cột và 2 đường chéo bị quân hậu 
vừa thử đặt khống chế (aj = bij = cij := TRUE) tức là cột và 2 đường chéo đó lại 
thành tự do, bởi khi đã đặt quân hậu 1 sang vị trí khác rồi thì cột và 2 đường chéo đó 


hoàn toàn có thê gán cho một quân hậu khác 


Hãy xem lại trong các chương trình liệt kê chỉnh hợp không lặp và hoán vị về kỹ thuật đánh dấu. Ở 


đáy chỉ khác với liệt kê hoán vị là: liệt kê hoán vị chỉ cần một mảng đánh dấu xem giả tri có tự do 


không, 


còn bài toán xếp hậu thì cân phải đánh dấu cả 3 thành phân: Cột, đường chéo ĐB-TN, 


đường chéo ĐN- TB. Trường hợp đơn giản hơn: Yêu câu liệt kê các cách đặt n quân xe lên bàn cờ 


nxn sao cho không quân nào ăn quân nào chính là bài toán liệt kê hoán vị 


e Input: file văn bản QUEENS.INP chứa số nguyên dương n < 12 


e Output: file văn bản QUEENS.OUT, mỗi dòng ghi một cách đặt n quân hậu 
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QUEENS. INP | QUEENS.OUT 
5 (, 1); (2, 3); (3, 3); (4, 2); (5, 4); 


program n Queens; 


const 
InputFile = 'QUEENS.INP'; 
OutputFile = 'QUEENS.OUT' ; 
max = 12; 

var 
n: Integer; 
x: array[1..max] of Integer; 
a: array[1..max] of Boolean; 
b: array[2..2 * max] of Boolean; 
c: array[1 - max..max - 1] of Boolean; 
f: Text; 


procedure Init; 
begin 
Assign(f, InputFile); Reset(f) ; 
ReadIn (f, n); 
Close (f) ; 
FillChar(a, SizeOf(a), True); (Mọi cột đều tự do} 
FillChar (b, SizeOf(b), True); (Mọi đường chéo Đông Bắc - Tây Nam đều tự do] 
FillChar(c, SizeOf(c), True); (Mọi đường chéo Đông Nam - Tây Bắc đều tự do] 
end; 


procedure PrintResult; 


var 
i: Integer; 

begin 
for i := 1 to n do Write(f, '(', i, ', ', x[i], '); '); 
Writeln (f); 

end; 


procedure Try(i: Integer); {Thủ các cách đặt quân hậu thú i vào hàng 1} 
var 
j: Integer; 
begin 
for j := 1 to n do 
if a[j] and b[i + j] and c[i - j] then {Chi xét những côt j mà ô (i, j) chua bị khống chế) 
begin 
x[i] := j; (Thủ đặt quân hậu i vào cột j} 
if i = n then PrintResult 


else 
begin 
a[j] := False; b[i + j] := False; c[i - j] := False; (Đánh dáu} 
Try(i + 1); {Tìm các cách đặt quân hậu thứ i + 1} 
a[j] := True; b[i + j] := True; c[i - j] := True; (Bỏ đánh dáu} 
end; 
end; 
end; 
begin 
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Tnit; 
Assign (f, O0utputFile); Rewrite (f); 
Try (1) ; 
Close (£) ; 
end. 


Tên gọi thuật toán quay lui, đứng trên phương diện cài đặt có thê nên gọi là kỹ thuật vét cạn bằng 
quay lui thì chính xác hơn, tuy nhiên đứng trên phương diện bài toán, nếu như ta coi công việc giải 
bài toán bằng cách xét tất cả các khả năng cũng là 1 cách giải thì tên gọi Thuật toán quay lui cũng 
không có gì trái logic. Xét hoạt động của chương trình trên cây tìm kiếm quay lui ta thấy tại bước 
thử chọn xi nó sẽ gọi đệ quy đề tìm tiếp x¡:¡ có nghĩa là quá trình sẽ duyệt tién sâu xuống phía dưới 
đến tận nút lá, sau khi đã duyệt hết các nhánh, tiến trình lùi lại thử áp đặt một giá trị khác cho xi, đó 


chính là nguồn gốc của tên gọi "thuật toán quay lui" 


Bài tập: 

Bài 1 

Một số chương trình trên xử lý không tốt trong trường hợp tầm thường (n = 0 hoặc k = 0), hãy khắc 
phục các lỗi đó 

Bài 2 

Viết chương trình liệt kê các chỉnh hợp lặp chập k của n phần tử 

Bài 3 

Cho hai số nguyên đương L n. Hãy liệt kê các xâu nhị phân độ dài n có tính chất, bất kỳ hai xâu con 
nào độ dài 1 liền nhau đều khác nhau. 

Bài 4 

Với n= 5,k= 3, vẽ cây tìm kiếm quay lui của chương trình liệt kê tô hợp châp k của tập {1, 2, ..., n} 
Bài 5 

Liệt kê tắt cả các tập con của tập S gòm n số nguyên {S¡, S2, ..., Sn} nhập vào từ bàn phím 

Bài 6 

Tương tự như bài 5 nhưng chỉ liệt kê các tập con có max - min < T (T cho trước). 

Bài 7 

Một dãy (xì, X2, ..., Xn) gọi là một hoán vị hoàn toàn của tập {1, 2,..., n} nếu nó là một hoán vi và 
thoả mãn x; # i với Vi: 1 < i < n. Hãy viết chương trình liệt kê tất cả các hoán vị hoàn toàn của tập 
trên (n vào từ bàn phím). 

Bài 8 

Sửa lại thủ tục in kết quả (PrintResult) trong bài xếp hậu để có thể vẽ hình bàn cờ và các cách đặt 
hậu ra màn hình. 


Bài 9 


Đại học Sw phạm Hà Nội, 1999-2002 


Bài toán liệt kê Q 23 © 


Mã đi tuần: Cho bàn cờ tổng quát kích thước nxn và một quân Mã, hãy chỉ ra một hành trình của 
quân Mã xuất phát từ ô đang đứng đi qua tất cả các ô còn lại của bàn cờ, mỗi ô đúng 1 lần. 

Bài 10 

Chuyên tất cả các bài tập trong bài trước đang viết bằng sinh tuần tự sang quay lui. 

Bài 11 

Xét sơ đồ giao thông gồm n nút giao thông đánh số từ 1 tới n và m đoạn đường nối chúng, mỗi đoạn 
đường nối 2 nút giao thông. Hãy nhập dữ liệu về mạng lưới giao thông đó, nhập số hiệu hai nút giao 
thông s và d. Hãy in ra tất cả các cách đi từ s tới d mà mỗi cách đi không được qua nút giao thông 


nào quá một lân. 
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§4. KỸ THUẬT NHÁNH CAN 


4.1. BÀI TOÁN TÓI ƯU 

Một trong những bài toán đặt ra trong thực tế là việc tìm ra một nghiệm thoả mãn một số điều kiện 
nào đó, và nghiệm đó là tốt nhất theo một chỉ tiêu cụ thể, nghiên cứu lời giải các lớp bài toán tối ưu 
thuộc về lĩnh vực quy hoạch toán học. Tuy nhiên cũng cần phải nói rằng trong nhiều trường hợp 
chúng ta chưa thể xây dựng một thuật toán nào thực sự hữu hiệu dë giải bài toán, mà cho tới nay 
việc tìm nghiệm của chúng vẫn phải dựa trên mô hình liệt kê toàn bộ các cấu hình có thể và đánh 
giá, tìm ra cầu hình tốt nhất. Việc liệt kê cấu hình có thê cài đặt bằng các phương pháp liệt kê: Sinh 
tuần tự và tìm kiếm quay lui. Dưới đây ta sẽ tìm hiểu phương pháp liệt kê bằng thuật toán quay lui 
để tìm nghiệm của bài toán tối ưu. 

4.2. SỰ BÙNG NÔ TÔ HỢP 

Mô hình thuật toán quay lui là tìm kiếm trên 1 cây phân cấp. Nếu giả thiết rằng ứng với mỗi nút 
tương ứng với một giá trị được chọn cho x; sẽ ứng với chỉ 2 nút tương ứng với 2 giá trị mà vn có 
thể nhận thì cây n cấp sẽ có tới 2" nút lá, con số này lớn hơn rất nhiều lần so với đữ liệu đầu vào n. 
Chính vì vậy mà nếu như ta có thao tác thừa trong việc chọn x; thì sẽ phải trả giá rất lớn về chi phí 
thực thi thuật toán bởi quá trình tìm kiếm lòng vòng vô nghĩa trong các bước chọn kế tiếp Xi, 
x¡›, ... Khi đó, một vấn đề đặt ra là trong quá trình liệt kê lời giải ta cần tận dụng những thông tin 
đã tìm được để loại bỏ sớm những phương án chắc chắn không phải tối ưu. Kỹ thuật đó gọi là kỹ 


thuật đánh giá nhánh cận trong tién trình quay lui. 
4.3. MÔ HÌNH KỸ THUẬT NHÁNH CẬN 


Dựa trên mô hình thuật toán quay lui, ta xây dựng mô hình sau: 


procedure Init; 
begin 

<Khởi tạo một câu hình bât kỳ BESTCONFIG>; 
end; 


(Thủ tục này thử chọn cho x; tất cả các giá trị nó có thê nhận) 
procedure Try(i: Integer); 
begin 
for (Mọi giá trị V có thê gán cho zl do 
begin 
<Thử cho x; := V>; 
if (Việc thử trên vẫn còn hi vọng tìm ra cấu hình tốt hơn BESTCONFIG) then 
if (x; là phần tử cuối cùng trong cấu hình) then 
<Cập nhật BESTCONFIG> 
else 
begin 
<Ghi nhận việc thử x; = V nếu cẳn>; 
Try(i + 1); {Gọi đệ quy, chọn tiếp Xin } 
<Bỏ ghi nhận việc thử cho x; = V (nêu cần)>; 
end; 
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end; 
end; 


begin 

Init; 

Try (1); 

<Thông báo cấu hình tối ưu BESTCONFIG> 
end. 


Kỹ thuật nhánh cận thêm vào cho thuật toán quay lui khả năng đánh giá theo từng bước, nếu tại 
bước thứ i, giá trị thử gán cho x; không có hi vọng tìm thấy cấu hình tốt hơn cấu hình 
BESTCONEFIG thì thử giá trị khác ngay mà không cần phải gọi đệ quy tìm tiếp hay ghi nhận kết 
quả làm gì. Nghiệm của bài toán sẽ được làm tốt dần, bởi khi tìm ra một cấu hình mới (tốt hơn 
BESTCONEFIG - tất nhiên), ta không in kết quả ngay mà sẽ cập nhật BESTCONFIG băng cấu hình 


mới vừa tìm được 


4.4. BÀI TOÁN NGƯỜI DU LỊCH 


4.4.1. Bài toán 
Cho n thành phố đánh số từ 1 đến n và m tuyến đường giao thông hai chiều giữa chúng, mạng lưới 


giao thông này được cho bởi bảng C cấp nxn, ở đây Cụ = Cj = Chi phí đi đoạn đường trực tiếp từ 


thành phố i đến thành phó j. Giả thiết rằng Ci = 0 với Vi, Cj = +œ néu không có đường trực tiếp từ 
thành phố ¡ đến thành phó j. 

Một người du lịch xuất phát từ thành phố 1, muốn đi thăm tất cả các thành phố còn lại mỗi thành 
phố đúng 1 lần và cuối cùng quay lại thành phố 1. Hãy chỉ ra cho người đó hành trình với chi phí ít 
nhất. Bài toán đó gọi là bài toán người du lịch hay bài toán hành trình của một thương gia 


(Traveling Salesman) 


4.4.2. Cách giải 

Hành trình cần tìm có dạng (xı = 1, Xa, ..., Xn, Xn+1 = 1) ở đây giữa x; và xi+ı: hai thành phố liên tiếp 
trong hành trình phải có đường đi trực tiếp (Cij # +00) và ngoại trừ thành phố 1, không thành phố 
nào được lặp lại hai lần. Có nghĩa là dãy (x1, X2, Sal lập thành 1 hoán vị của (1, 2, ..., n). 

Duyệt quay lui: xa có thể chọn một trong các thành phố mà xı có đường đi tới (trực tiếp), với mỗi 
cách thử chọn x; như vậy thì x3 có thể chọn một trong các thành phố mà x2 có đường đi tới (ngoài 
xı). Tông quát: x; có thê chọn 1 trong các thành phố chưa đi qua mà từ x¡.¡ có đường đi trực tiếp 
tới (1 <i<n). 

Nhánh cận: Khởi tạo cấu hình BestConfig có chi phí = +œ. Với mỗi bước thử chọn x; xem chỉ phí 
đường đi cho tới lúc đó có < Chi phí của cấu hình BestConfig?, néu không nhỏ hơn thì thử giá trị 
khác ngay bởi có đi tiếp cũng chỉ tốn thêm. Khi thử được một giá trị xạ ta kiểm tra xem xạ có đường 


đi trực tiếp về 1 không ? Nếu có đánh giá chi phí đi từ thành phố 1 đến thành phố xn cộng với chỉ 
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phí từ xạ đi trực tiếp về 1, nếu nhỏ hơn chỉ phí của đường đi BestConfg thì cập nhật lại BestConfig 
bằng cách đi mới. 
Sau thủ tục tìm kiếm quay lui mà chi phí của BestConfig vẫn bằng +o thì có nghĩa là nó không tìm 
thấy một hành trình nào thoả mãn điều kiện đề bài để cập nhật BestConfig, bài toán không có lời 
giải, còn nếu chi phí của BestConfig < +o thì in ra câu hình BestConfig - đó là hành trình ít tốn 
kém nhất tìm được 
Input: file văn bản TOURISM.INP 
e Dòng 1: Chúa số thành phố n (1 < n < 20) và số tuyến đường m trong mạng lưới giao thông 
e m dòng tiếp theo, mỗi dòng ghi số hiệu hai thành phố có đường đi trực tiếp và chi phí đi trên 
quãng đường đó (chi phí này là số nguyên dương < 100) 
Output: file văn bản TOURISM.OUT, ghi hành trình tìm được. 


TOURISM. INP | TOURTSM.OUT 
46 1->3->2->4->1 
123 Cost: 6 
132 

141 

231 

242 

344 


program TravellingSalesman; 
const 
InputFile = 'TOURISM. INP'; 
OutputFile = 'TOURISM.OUT'; 


max = 20; 
maxC = 20 * 100 + 1;{+œ} 
var 


C: array[1..max, 1..max] of Integer; {Ma trân chi phí} 

X, BestWay: array[1..max + 1] of Integer; {X để thủ các khả năng, BestWay để ghi nhận nghiêm} 
T: array[1..max + 1] of Integer; {T: để lưu chi phí đi tù X, đến X:] 

Free: array[1..max] of Boolean; (Free để đánh dấu, Free;= True néu chưa đi qua tp i} 

m, n: Integer; 

MinSpending: Integer; {Chi phí hành trình tối wu} 


procedure Enter; 
var 
i, j, k: Integer; 
f: Text; 
begin 
Assign(f, InputFile); Reset(f) ; 
Readln (f, n, m); 
for i := 1 to n do {Khói tạo bảng chi phí ban đầu) 
for j := 1 to n do 
if i = j then C[i, j] := 0 else C[i, j] := maxC; 
for k := 1 to m do 
begin 
Readln (f, i, j, C[i, j]); 
C[j, i] := C[i, j]; {Chi phí như nhau trên 2 chiều) 
end; 
Close (£) ; 
end; 


procedure Init; {Khói tạo} 
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begin 
FillChar (Free, n, True); 
Free[l] := False; {Các thành phố là chua đi qua ngoại trù thành phố 1} 
X[1] := 1; (Xuất phát tù thành phố 1} 
TỊ1| := 0; {Chi phí tại thành phố xuất phát là 0} 
MinSpending := maxC; 
end; 


procedure Try(i: Integer); {Thủ các cách chọn xi} 
var 
j: Integer; 
begin 
for j := 2 to n do (Thủ các thành phố tù 2 dén n} 
if Free[j] then (Nếu gặp thành phố chưa đi qua} 
begin 
X[i] := j; (Thử di} 
T[i] := T[i - 1] + C[x[i - 1], j]; {Chi phí := Chi phí bước trước + chỉ phí đường đi trục tiếp) 
if T[i] < MinSpending then (Hiển nhiên nếu có điểu này thì C[x[i - 1], j] < +% rồi] 
if i < n then (Nếu chua đến được x,} 
begin 
Free[j] := False; (Đánh dấu thành phố vřa thủ} 
Try(i + 1); {Tìm các khả năng chọn Xin} 
Free[j] := True; (Bỏ đánh dấu) 
end 
else 
if T[n] + Œ[x[n], 1] < MinSpending then {Tù x, quay lại 1 vẫn tốn chỉ phí ít hơn trước] 
begin (Cập nhật BestConfig} 
BestWay := X; 
MinSpending := T[n] + C[x[n], 1]; 
end; 
end; 
end; 


procedure PrintResult; 
var 
i: Integer; 
f: Text; 
begin 
Assign(f, OutputFile); Rewrite (f); 
if MinSpending = maxC then Writeln(f, 'NO SOLUTION') 
else 
for i := 1 to n do Write(f, BestWay[i], '->'); 
Writeln (f, 1); 
WriteLn(f, 'Cost: ', MinSpending) ; 
Close (f); 
end; 


begin 
Enter; 
Init; 
Try (2) ; 
PrintResult; 
end. 


Trên đây là một giải pháp nhánh cận còn rât thô sơ giải bài toán người du lịch, trên thực tê người ta 
còn có nhiêu cách đánh giá nhánh cận chặt hơn nữa. Hãy tham khảo các tài liệu khác đê tìm hiệu vê 


những phương pháp đó. 
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4.5. DÃY ABC 


Cho trước một số nguyên dương N (N < 100), hãy tìm một xâu chỉ gồm các ký tự A, B, C thoả mãn 
3 điều kiện: 

Có độ dài N 

Hai đoạn con bất kỳ liền nhau đều khác nhau (đoạn con là một dãy ký tự liên tiếp của xâu) 

Có ít ký tự C nhất. 

Cách giải: 

Không trình bày, đề nghị tự xem chương trình để hiểu, chỉ chú thích kỹ thuật nhánh cận như sau: 
Nếu dãy X¡X¿...Xạ thoả mãn 2 đoạn con båt kỳ liền nhau đều khác nhau, thì trong 4 ký tự liên tiếp 
bất kỳ bao giờ cũng phải có 1 ký tự "C". Như vậy với một dãy con gồm k ký tự liên tiếp của dãy X 
thì số ký tự C trong dãy con đó bắt buộc phải > k div 4. 

Tại bước thử chọn X;, nếu ta đã có T; ký tự "C" trong đoạn đã chọn từ XS: đến X;, thì cho dù các 
bước đệ quy tiếp sau làm tốt như thế nào chăng nữa, số ký tự "C" sẽ phải chọn thêm bao giờ cũng > 
(n - i) div 4. Tức là néu theo phương án chọn X; như thế này thì số ký tự "C" trong dãy kết quả (khi 
chọn đến Xn) cho dù có làm tốt đến đâu cũng > T; + (n - i) div 4. Ta dùng con số này dë đánh giá 
nhánh cận, nếu nó nhiều hơn số ký tự "C" trong BestConfig thì chắc chắn có làm tiếp cũng chỉ được 
một cấu hình tôi tệ hơn, ta bỏ qua ngay cách chọn này và thử phương án khác. 

Input: file văn bản ABC.INP chứa số nguyên đương n < 100 

Output: file văn bản ABC.OUT ghi xâu tìm được 


ABC. INP | ABC.OUT 


10 ABACABCBAB 
"C" Letter Count : 2 


program ABC STRING; 


const 
InputFile = 'ABC.INP'; 
OutputFile = 'ABC.OUT' ; 
max = 100; 

var 


N, MinC: Integer; 

X, Best: array[1..max] of 'A'..'C'; 

T: array[0..max] of Integer; (T: cho biết số ký tụ "C" trong đoạn tù X: đến X;} 
f: Text; 


{Hàm Same(i, 1) cho biết xâu gồm 1 ký tų kết thúc tại X; có trùng với xâu 1 ký tų liên trước nó không ?} 
function Same(i, 1: Integer): Boolean; 
var 
j, k: Integer; 
begin 
j:=i- 1; {j là vị trí cuói đoạn liền trước đoạn đó} 
for k := 0 to 1 - 1 do 
if X[i - k] <> X[j - k] then 
begin 
Same := False; Exit; 
end; 
Same := True; 
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end; 


{Hàm Check(i) cho biết X; có làm hỏng tính không lặp của dãy X;X; .. X; hay không) 
function Check(i: Integer): Boolean; 
var 
1: Integer; 
begin 
for 1 := 1 to i div 2 do {Thủ các độ dài 1} 
if Same(i, 1) then (Nếu có xâu độ dài 1 kết thúc bởi X; bị trùng với xâu lièn truóc} 
begin 
Check := False; Exit; 
end; 
Check := True; 
end; 


{Giŭ lại kết quả vừa tìm được vào BestConfig (MinC và mång Best) } 
procedure KeepResult; 


begin 
MinC := T[N]; 
Best := X; 
end; 


{Thuật toán quay lui có nhánh cận} 
procedure Try(i: Integer); (Thủ các giá trị có thể của X;} 


var 
j: AR C; 
begin 
for j := 'A' to 'C' do {Xét tất cả các giá tri} 
begin 
x[i] := j; l 
if Check (i) then (Nêu thêm giá trị đó vào không làm hỏng tính không lặp } 
begin 
if j= !C' then T[i] := T[i - 1] +1 (Tính T; qua T;-¡} 
else T[i] := T[i - 1]; 
if T[i] + (N - i) div 4 < MinC then (Đánh giá nhánh cân} 
if i = N then KeepResult 
else Try(i + 1); 
end; 
end; 
end; 


procedure PrintResult; 
var 
i: Integer; 
begin 
for i := 1 to N do Write(f, Best[i]); 
Writeln (f); 
Writeln(f, '"C" Letter Count : ', MinC); 
end; 


begin 
Assign(f, InputFile); Reset(f) ; 
Readln (f, N); 
Close (£) ; 
Assign (f, 0utputFile); Rewrite (f); 
T[0] := 0; 
MinC := N; (Khởi tạo câu hình BestConfig ban đầu rất tôi} 
Try (1) ; 
PrintResult; 
Close (£) ; 

end. 


Nếu ta thay bài toán là tìm xâu ít ký tự 'B' nhất mà vẫn viết chương trình tương tự như trên thì 


chương trình sẽ chạy chậm hơn chút ít. Lý do: thủ tục Try ở trên sẽ thử lần lượt các giá trị 'A', 'B', 
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rồi mới đến 'C'. Có nghĩa ngay trong cách tìm, nó đã tiết kiệm sử dụng ký tự 'C' nhất nên trong phần 

lớn các bộ dữ liệu nó nhanh chóng tìm ra lời giải hơn so với bài toán tương ứng tìm xâu ít ký tự 'B' 

nhất. Chính vì vậy mà nếu như đề bài yêu cầu ít ký tự 'B' nhất ta cứ lập chương trình làm yêu cầu ít 

ký tự 'C' nhất, chỉ có điều khi in kết quả, ta đổi vai trò 'B', 'C' cho nhau. Đây là một ví dụ cho thấy 

sức mạnh của thuật toán quay lui khi kết hợp với kỹ thuật nhánh cận, nếu viết quay lui thuần tuý 

hoặc đánh giá nhánh cận không tốt thì với N = 100, tôi cũng không đủ kiên nhẫn để đợi chương 

trình cho kết quả (chỉ biết rằng > 3 giờ). Trong khi đó khi N = 100, với chương trình trên chỉ chạy 

hết hơn 3 giây cho kết quả là xâu 27 ký tự 'C'. 

Nói chung, ít khi ta gặp bài toán mà chỉ cần sử dụng một thuật toán, một mô hình kỹ thuật cài đặt là 

có thể giải được. Thông thường các bài toán thực tế đòi hỏi phải có sự tổng hợp, pha trộn nhiều 

thuật toán, nhiều kỹ thuật mới có được một lời giải tốt. Không được lạm dụng một kỹ thuật nào và 

cũng không xem thường một phương pháp nào khi bắt tay vào giải một bài toán tin học. Thuật toán 

quay lui cũng không phải là ngoại lệ, ta phải biết phối hợp một cách uyên chuyền với các thuật toán 

khác thì khi đó nó mới thực sự là một công cụ mạnh. 

Bài tập: 

Bài 1 

Một dãy dấu ngoặc hợp lệ là một dãy các ký tự "(" và ")" được định nghĩa như sau: 

i. Dãy rỗng là một dãy dấu ngoặc hợp lệ độ sâu 0 

ii. Nếu A là dãy dấu ngoặc hợp lệ độ sâu k thì (A) là đãy dấu ngoặc hợp lệ độ sâu k + 1 

iii. Nếu A và B là hay dãy dấu ngoặc hợp lệ với độ sâu lần lượt là p và q thì AB là dãy dấu ngoặc 
hợp lệ độ sâu là max(p, q) 

Độ dài của một dãy ngoặc là tông số ký tự "(" và ")" 

Ví dụ: Có 5 dấy dấu ngoặc hợp lệ độ dài 8 và độ sâu 3: 


1. ((00)) 
2. ((0)0) 
3. ((0010 
4. (0(0)) 
5. 0((0)) 


Bài toán đặt ra là khi cho biết trước hai số nguyên dương n và k. Hãy liệt kê hết các dër ngoặc 
hợp lệ có độ dài là n và độ sâu là k (làm được với n càng lớn càng t0). 

Bài 2 

Cho một bãi mìn kích thước mxn ô vuông, trên một ô có thể có chứa một quả mìn hoặc không, để 
biểu điễn bản đồ mìn đó, người ta có hai cách: 

Cách 1: dùng bản đồ đánh dấu: sử dụng một lưới ô vuông kích thước mxn, trên đó tại ô (i, j) ghi số 


1 nêu ô đó có mìn, ghi sô 0 nêu ô đó không có mìn 
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Cách 2: dùng bản đồ mật độ: sử dụng một lưới ô vuông kích thước mxn, trên đó tại ô (i, j) ghi một 
số trong khoảng từ 0 đến 8 cho biết tổng số mìn trong các ô lân cận với ô (i, j) (ô lân cận với ô (i, j) 
là ô có chung với ô (i, j) ít nhất 1 đỉnh). 
Giả thiết rằng hai bản đồ được ghi chính xác theo tình trạng mìn trên hiện trường. 
Về nguyên tắc, lúc cài bãi mìn phải vẽ cả bản đồ đánh dấu và bản đồ mật độ, tuy nhiên sau một thời 
gian đài, khi người ta muốn gỡ mìn ra khỏi bãi thì ván đề hết sức khó khăn bởi bản đồ đánh dấu đã 
bị thất lạc !!. Công việc của các lập trình viên là: Từ bản đô mật độ, hãy tái tạo lại bản đồ đánh 
dâu của bãi mìn. 
Dữ liệu: Vào từ file văn bản MINE.INP, các sô trên 1 dòng cách nhau ít nhât 1 dầu cách 
e Dòng 1: Ghi 2 sô nguyên dương m, n (2 < m, n < 30) 
e m dòng tiếp theo, dòng thú i ghi n số trên hàng i của bản đồ mật độ theo đúng thứ tự từ trái 
qua phải. 
Kết quả: Ghi ra file văn bản MINE.OUT, các số trên 1 dòng ghi cách nhau ít nhất 1 dấu cách 
e Dòng 1: Ghi tông sô lượng min trong bãi 
e m dòng tiếp theo, dòng thứ i ghi n số trên hàng i của bản đồ đánh dấu theo đúng thứ tự từ 
trái qua phải. 


Ví dụ: 


MINE. INP MINE . OUT 


LA vs ƠI LO ës GA R2 C2 ƠI A 
C2 ës nn C2 R2 B2 C2 AO A 
A vs Ss LA vs CI Ln CI On A 
h C2 C2 kä kä bä e CI CI Go 
Led 'ˆ C E '_ nd E '` e 
KA ta ent en en en en en en 
bet, Fe: Së kä. SE a kä 
Led CC CC E E t` E E 
pa e, Kë ee kk SKS ke 
Sa ER ex kä e kä a kä Eë Fa 
" CC a C C rO E '` CC 
" CC CC CC CC ` CC ' BPE 
pa Ca Eeër B' GK C6 kä kg 
t= 3 ke tằm Fe Kë ex Pˆ ké Fe 
© kä kä GO ' CO CO ka kä t3ä 
© sel d-s CC CC CC CC E ml wl 
SE kä kä Fé ké KS. es ké 
SA Kä kä CR CH Eë ké Eë Fa 
kä kp. CC te j5 ké Kë kä 
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GIẢI THUẬT 


Hạt nhân của các chương trình máy tính là sự lưu trữ và xử lý 
thông tin. Việc tổ chức dữ liệu như thế nào có ảnh hưởng rất lớn 
đến cách thức xử lý đữ liệu đó cũng như tốc độ thực thi và sự 
chiếm dụng bộ nhớ của chương trình. Việc đặc tả bằng các cấu 
trúc tổng quát (generic structures) và các kiểu dữ liệu trừu tượng 
(abstract data types) còn cho phép người lập trình có thê dë dàng 
hình dung ra các công việc cụ thể và giảm bớt công sức trong 
việc chỉnh sửa, nâng cấp và sử dụng lại các thiết kế đã có. 

Mục đích của phần này là cung cấp những hiểu biết nền tảng 
trong việc thiết kế một chương trình máy tính, đề thấy rõ được 
sự cần thiết của việc phân tích, lựa chọn cầu trúc dp liệu phù 
hợp cho từng bài toán cụ thê; đồng thời khảo sát một số cấu trúc 
dữ liệu và thuật toán kinh điển mà lập trình viên nào cũng cần 


phải năm vững. 


Q 34 w~ Chuyên đề 


§1. CÁC BƯỚC CƠ BẢN KHI TIỀN HÀNH GIẢI CÁC BÀI TOÁN 
TIN HỌC 


1.1. XÁC ĐỊNH BÀI TOÁN 


Input —> Process —> Output 
(Dữ liệu vào > Xử lý — Kết quả ra) 

Việc xác định bài toán tức là phải xác định xem ta phải giải quyết vấn đề gì?, với giả thiết nào 

đã cho và lời giải cần phải đạt những yêu cầu gì. Khác với bài toán thuần tuý toán học chỉ cần 

xác định rõ giả thiết và kết luận chứ không cần xác định yêu cầu về lời giải, đôi khi những bài 

toán tin học ứng dụng trong thực tế chỉ cần tìm lời giải tốt tới mức nào đó, thậm chí là tồi ở 

mức chấp nhận được. Bởi lời giải tốt nhất đòi hỏi quá nhiều thời gian và chỉ phí. 

Ví dụ: 

Khi cài đặt các hàm số phức tạp trên máy tỉnh. Nếu tính bằng cách khai triển chuỗi vô hạn thì 

độ chính xác cao hơn nhưng thời gian chậm hơn hàng tỉ lần so với phương pháp xấp xỉ. Trên 

thực tế việc tính toán luôn luôn cho phép chấp nhận một sai số nào đó nên các hàm số trong 
máy tính đều được tính bằng phương pháp xấp xỉ của giải tích số 

Xác định đúng yêu cầu bài toán là rất quan trọng bởi nó ảnh hưởng tới cách thức giải quyết và 

chất lượng của lời giải. Một bài toán thực tế thường cho bởi những thông tin khá mơ hồ và 

hình thức, ta phải phát biểu lại một cách chính xác và chặt chẽ để hiểu đúng bài toán. 

Ví dụ: 

e Hải toán: Một dự án có n người tham gia thảo luận, họ muốn chia thành các nhóm và mỗi 
nhóm thảo luận riêng về một phân của dự án. Nhóm có bao nhiêu người thì được trình lên 
bấy nhiêu ý kiến. Nếu lấy ở mỗi nhóm một ý kiến đem ghép lại thì được một bộ ý kiến triển 
khai dự án. Hãy tìm cách chia để số bộ ý kiến cuối cùng thu được là lớn nhất. 

e Phát biểu lại: Cho một số nguyên dương n, tim các phân tích n thành tổng các số nguyên 
dương sao cho tích của các số đó là lớn nhát. 

Trên thực tế, ta nên xét một vài trường hợp cụ thê để thông qua đó hiểu được bài toán rõ hơn 

và thấy được các thao tác cần phải tiến hành. Đối với những bài toán đơn giản, đôi khi chỉ cần 


qua ví dụ là ta đã có thể đưa về một bài toán quen thuộc để giải. 
1.2. TÌM CẤU TRÚC DU LIEU BIEU DIEN BÀI TOÁN 


Khi giải một bài toán, ta cần phải định nghĩa tập hợp dữ liệu dé biểu diễn tình trạng cụ thé. 
Việc lựa chọn này tuỳ thuộc vào vấn đề cần giải quyết và những thao tác sẽ tiến hành trên đữ 


liệu vào. Có những thuật toán chỉ thích ứng với một cách tổ chức dữ liệu nhất định, đối với 
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những cách tô chức dữ liệu khác thì sẽ kém hiệu quả hoặc không thể thực hiện được. Chính vì 
vậy nên bước xây dựng cấu trúc dữ liệu không thể tách rời bước tìm kiếm thuật toán giải 
quyết vấn đè. 

Các tiêu chuẩn khi lựa chọn cấu trúc dữ liệu 

Cấu trúc đữ liệu trước hết phải biểu diễn được đầy đủ các thông tin nhập và xuất của bài toán 
Cấu trúc dữ liệu phải phù hợp với các thao tác của thuật toán mà ta lựa chọn để giải quyết bài 
toán. 

Cấu trúc đữ liệu phải cài đặt được trên máy tính với ngôn ngữ lập trình đang sử dụng 

Đối với một số bäi toán, trước khi tô chức dù liệu ta phải viết một đoạn chương trình nhỏ để 
khảo sát xem dữ liệu cần lưu trữ lớn tới mức độ nào. 

1.3. TÌM THUẬT TOÁN 

Thuật toán là một hệ thống chặt chẽ và rõ ràng các quy tắc nhằm xác định một dãy thao tác 
trên cấu trúc đữ liệu sao cho: Với một bộ dữ liệu vào, sau một số hữu hạn bước thực hiện các 
thao tác đã chỉ ra, ta đạt được mục tiêu đã định. 


Các đặc trưng của thuật toán 


1.3.1. Tính đơn định 
Ở mỗi bước của thuật toán, các thao tác phải hết sức rõ ràng, không gây nên sự nhập nhằng, 
lộn xộn, tuy tiện, đa nghĩa. Thực hiện đúng các bước của thuật toán thì với một dữ liệu vào, 


chỉ cho duy nhất một kết quả ra. 


1.3.2. Tính dừng 

Thuật toán không được rơi vào quá trình vô hạn, phải dừng lại và cho kết quả sau một số hữu 
hạn bước. 

1.3.3. Tính đúng 

Sau khi thực hiện tất cả các bước của thuật toán theo đúng quá trình đã định, ta phải được kết 
quả mong muốn với mọi bộ dữ liệu đầu vào. Kết quả đó được kiểm chứng bằng yêu cầu bài 
toán. 

1.3.4. Tính phố dụng 

Thuật toán phải dễ sửa đổi để thích ứng được với bất kỳ bài toán nào trong một lớp các bài 


toán và có thê làm việc trên các dữ liệu khác nhau. 
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1.3.5. Tính khả thi 

a) Kích thước phải đủ nhỏ: Ví dụ: Một thuật toán sẽ có tính hiệu quả bằng 0 nếu lượng bộ nhớ 
mà nó yêu cầu vượt quá khả năng lưu trữ của hệ thống máy tính. 

b) Thuật toán phải được máy tính thực hiện trong thời gian cho phép, điều này khác với lời 
giải toán (Chỉ cần chứng minh là kết thúc sau hữu hạn bước). Ví dụ như xếp thời khoá biểu 
cho một học kỳ thì không thể cho máy tính chạy tới học kỳ sau mới ra được. 

c) Phải dễ hiểu và dễ cài đặt. 

Ví dụ: 

Input: 2 số nguyên tự nhiên a và b không đông thời bằng 0 

Output: Ước số chung lớn nhất của a và b 

Thuật toán sẽ tién hành được mô tả như sau: (Thuật toán Euclide) 

Bước 1 (Input): Nhập a và b: Số tự nhiên 

Bước 2: Nếu b <0 thì chuyển sang bước 3, nếu không thì bỏ qua bước 3, đi làm bước 4 

Bước 3: Đặi r := a mod b; Đặt a := b; Đặt b := r; Quay trở lại bước 2. 


Bước 4 (Output): Kết luận ước số chung lớn nhất phải tìm là giá trị của a. Kết thúc thuật toán. 


Hình 4: Lưu đồ thuật giải (Flowchart) 

Khi mô tả thuật toán bằng ngôn ngữ tự nhiên, ta không cần phải quá chỉ tiết các bước và tién 
trình thực hiện mà chỉ cần mô tả một cách hình thức đủ để chuyền thành ngôn ngữ lập trình. 
Viết sơ đồ các thuật toán đệ quy là một ví dụ. 

Đối với những thuật toán phức tạp và nặng về tính toán, các bước và các công thức nên mô tả 
một cách tường minh và chú thích rõ ràng để khi lập trình ta có thể nhanh chóng tra cứu. 

Đối với những thuật toán kinh điển thì phải thuộc. Khi giải một bài toán lớn trong một thời 
gian giới hạn, ta chỉ phải thiết kế tổng thể còn những chỗ đã thuộc thì cứ việc lắp ráp vảo. 
Tính đúng đắn của những mô-đun đã thuộc ta không cần phải quan tâm nữa mà tập trung giải 


quyết các phần khác. 
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1.4. LẬP TRÌNH 


Sau khi đã có thuật toán, ta phải tiễn hành lập trình thể hiện thuật toán đó. Muốn lập trình đạt 
hiệu quả cao, cần phải có kỹ thuật lập trình tốt. Kỹ thuật lập trình tốt thể hiện ở kỹ năng viết 
chương trình, khả năng gỡ rối và thao tác nhanh. Lập trình tốt không phải chỉ cần nắm vững 
ngôn ngữ lập trình là đủ, phải biết cách viết chương trình uyên chuyền, khôn khéo và phát 
triển dàn dần để chuyên các ý tưởng ra thành chương trình hoàn chỉnh. Kinh nghiệm cho thấy 
một thuật toán hay nhưng do cải đặt vụng về nên khi chạy lại cho kết quả sai hoặc tốc độ 
chậm. 

Thông thường, ta không nên cụ th hoá ngay toàn bộ chương trình mà nên tiến hành theo 
phương pháp tinh chế từng bước (Stepwise refinement): 

Ban đầu, chương trình được thể hiện bằng ngôn ngữ tự nhiên, thể hiện thuật toán với các bước 
tổng thể, mỗi bước nêu lên một công việc phải thực hiện. 

Một công việc đơn giản hoặc là một đoạn chương trình đã được học thuộc thì ta tiễn hành viết 
mã lệnh ngay bằng ngôn ngữ lập trình. 

Một công việc phức tạp thì ta lại chia ra thành những công việc nhỏ hơn để lại tiếp tục VỚI 
những công việc nhỏ hơn đó. 

Trong quá trình tinh chế từng bước, ta phải đưa ra những biểu diễn dữ liệu. Như vậy cùng với 
sự tỉnh chế các công việc, dữ liệu cũng được tinh chế dần, có cấu trúc hơn, thê hiện rõ hơn 
mối liên hệ giữa các dữ liệu. 

Phương pháp tinh chế từng bước là một thể hiện của tư duy giải quyết vấn đề từ trên xuống, 
giúp cho người lập trình có được một định hướng thể hiện trong phong cách viết chương trình. 


Tránh việc mò mẫm, xoá đi viết lại nhiêu lần, bién chương trình thành tờ giây nháp. 


1.5. KIEM THU 


1.5.1. Chạy thử và tìm lỗi 


Chương trình là do con người viết ra, mà đã là con người thì ai cũng có thể nhằm lẫn. Một 
chương trình viết xong chưa chắc đã chạy được ngay trên máy tính để cho ra kết quả mong 
muốn. Kỹ năng tìm lỗi, sửa lỗi, điều chỉnh lại chương trình cũng là một kỹ năng quan trọng 
của người lập trình. Kỹ năng này chỉ có được bằng kinh nghiệm tìm và sửa chữa lỗi của chính 
mình. 

Có ba loại lỗi: 

Lỗi cú pháp: Lỗi này hay gặp nhất nhưng lại dễ sửa nhất, chỉ cần näm vững ngôn ngữ lập 
trình là đủ. Một người được coi là không biết lập trình néu không biết sửa lỗi cú pháp. 

Lỗi cài đặt: Việc cài đặt thể hiện không đúng thuật toán đã định, đối với lỗi này thì phải xem 
lại tổng thé chương trình, kết hợp với các chức năng gỡ rối đề sửa lại cho đúng. 
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Lỗi thuật toán: Lỗi này ít gặp nhất nhưng nguy hiểm nhất, nếu nhẹ thì phải điều chỉnh lại 


thuật toán, néu nặng thì có khi phải loại bỏ hoàn toàn thuật toán sai và làm lại từ đầu. 


1.5.2. Xây dựng các bộ test 

Có nhiều chương trình rất khó kiểm tra tính đúng đắn. Nhất là khi ta không biết kết quả đúng 
là thế nào?. Vì vậy néu như chương trình vẫn chạy ra kết quả (không biết đúng sai thế nào) thì 
việc tìm lỗi rất khó khăn. Khi đó ta nên làm các bộ test để thử chương trình của mình. 

Các bộ test nên đặt trong các file văn bản, bởi việc tạo một file văn bản rất nhanh và mỗi lần 
chạy thử chỉ cần thay tên file dữ liệu vào là xong, không cần gõ lại bộ test từ bàn phím. Kinh 
nghiệm làm các bộ test là: 

Bắt đầu với một bộ test nhỏ, đơn giản, làm bằng tay cũng có được đáp số dë so sánh với kết 
quả chương trình chạy ra. 

Tiếp theo vẫn là các bộ test nhỏ, nhưng chứa các giá trị đặc biệt hoặc tầm thường. Kinh 
nghiệm cho thấy đây là những test dễ sai nhất. 

Các bộ test phải đa dạng, tránh sự lặp đi lặp lại các bộ test tương tự. 

Có một vài test lớn chỉ dé kiểm tra tính chịu đựng của chương trình mà thôi. Kết quả có đúng 
hay không thì trong đa số trường hợp, ta không thê kiểm chứng được với test này. 

Lưu ý rằng chương trình chạy qua được hết các test không có nghĩa là chương trình đó đã 
đúng. Bởi có thê ta chưa xây dựng được bộ test làm cho chương trình chạy sai. Vì vậy nếu có 
thể, ta nên tìm cách chứng minh tính đúng đắn của thuật toán và chương trình, điều này 


thường rất khó. 
1.6. TÕI UU CHƯƠNG TRÌNH 


Một chương trình đã chạy đúng không có nghĩa là việc lập trình đã xong, ta phải sửa đổi lại 
một vài chỉ tiết để chương trình có thể chạy nhanh hơn, hiệu quả hơn. Thông thường, trước 
khi kiểm thử thì ta nên đặt mục tiêu viết chương trình sao cho đơn giản, miễn sao chạy ra kết 
quả đúng là được, sau đó khi tối ưu chương trình, ta xem lại những chỗ nào viết chưa tốt thì 
tối ưu lại mã lệnh để chương trình ngắn hơn, chạy nhanh hơn. Không nên viết tới đâu tối ưu 
mã đến đó, bởi chương trình có mã lệnh tối ưu thường phức tạp và khó kiểm soát. 


Việc tôi ưu chương trình nên dựa trên các tiêu chuân sau: 


1.6.1. Tính tin cậy 
Chương trình phải chạy đúng như dự định, mô tả đúng một giải thuật đúng. Thông thường khi 


viết chương trình, ta luôn có thói quen kiểm tra tính đúng dän của các bước mỗi khi có thể. 
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1.6.2. Tính uyễn chuyển 
Chương trình phải dễ sửa dëi. Bởi ít có chương trình nào viết ra đã hoàn hảo ngay được mà 
vẫn cần phải sửa đối lại. Chương trình viết dễ sửa đổi sẽ làm giảm bớt công sức của lập trình 


viên khi phát triển chương trình. 


1.6.3. Tính trong sáng 

Chương trình viết ra phải dë đọc dë hiểu, để sau một thời gian dài, khi đọc lại còn hiểu mình 
làm cái gì?. Để nếu có điều kiện thì còn có thể sửa sai (nếu phát hiện lỗi mới), cải tiến hay 
biến đôi để được chương trình giải quyết bài toán khác. Tính trong sáng của chương trình phụ 


thuộc rất nhiều vào công cụ lập trình và phong cách lập trình. 


1.6.4. Tính hữu hiệu 

Chương trình phải chạy nhanh và ít tốn bộ nhớ, tức là tiết kiệm được cả về không gian và thời 
gian. Để có một chương trình hữu hiệu, cần phải có giải thuật tốt và những tiéu xảo khi lập 
trình. Tuy nhiên, việc áp dụng quá nhiều tiểu xảo có thê khiến chương trình trở nên rối rắm, 
khó hiểu khi sửa đổi. Tiêu chuẩn hữu hiệu nên dừng lại ở mức chấp nhận được, không quan 
trọng bằng ba tiêu chuẩn trên. Bởi phần cứng phát triển rất nhanh, yêu cầu hữu hiệu không 


cân phải đặt ra quá nặng. 


Từ những phân tích ở trên, chúng ta nhận thấy rằng việc làm ra một chương trình đòi hỏi rất 
nhiều công đoạn và tiêu tốn khá nhiều công sức. Chỉ một công đoạn không hợp lý sẽ làm tăng 
chỉ phí viết chương trình. Nghĩ ra cách giải quyết vẫn đề đã khó, biến ý tưởng đó thành hiện 
thực cũng không dễ chút nào. 

Những cấu trúc dữ liệu và giải thuật đề cập tới trong chuyên đề này là những kiến thức rất phổ 
thông, một người học lập trình không sớm thì muộn cũng phải biết tới. Chỉ hy vọng rằng khi 
học xong chuyên đề này, qua những cấu trúc dữ liệu và giải thuật hết sức mẫu mực, chúng ta 
rút ra được bài học kinh nghiệm: Đừng bao giờ viết chương trình khi mà chưa suy xét kỹ 
về giải thuật và những dữ liệu cần thao tác, bởi như vậy ta dë mắc phải hai sai lầm trầm 
trọng: hoặc là sai về giải thuật, hoặc là giải thuật không thê triển khai nồi trên một cấu trúc dù 
liệu không phù hợp. Chỉ cần mắc một trong hai lỗi đó thôi thì nguy cơ sụp đồ toàn bộ chương 
trình là hoàn toàn có thể, càng có chữa càng bị rối, khả năng hầu như chắc chắn là phải làm lại 


từ đầu”), 


© Tất nhiên, cần thận đến đâu thì cũng có xác suất rủi ro nhất định, ta hiểu được mức độ tai hại của hai lỗi này đề hạn 


chê nó càng nhiêu càng tôt 
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§2. PHÂN TÍCH THỜI GIAN THỰC HIEN GIẢI THUẬT 


2.1. ĐỘ PHỨC TẠP TÍNH TOÁN CỦA GIẢI THUẬT 
Với một bài toán không chỉ có một giải thuật. Chọn một giải thuật đưa tới kết quả nhanh nhất 
là một đòi hỏi thực tế. Như vậy cần có một căn cứ nào đó đề nói rằng giải thuật này nhanh 
hơn giải thuật kia ?. 
Thời gian thực hiện một giải thuật bằng chương trình máy tính phụ thuộc vào rất nhiều yếu tó. 
Một yếu tố cần chú ý nhất đó là kích thước của dữ liệu đưa vào. Dữ liệu càng lớn thì thời gian 
xử lý càng chậm, chăng hạn như thời gian sắp xếp một dãy số phải chịu ảnh hưởng của số 
lượng các số thuộc dãy số đó. Nếu gọi n là kích thước dữ liệu đưa vào thì thời gian thực hiện 
của một giải thuật có thể biểu diễn một cách tương đối như một hàm của n: T(n). 
Phần cứng máy tính, ngôn ngữ viết chương trình và chương trình dịch ngôn ngữ ấy đều ảnh 
hưởng tới thời gian thực hiện. Những yếu tô này không giống nhau trên các loại máy, vì vậy 
không thê dựa vào chúng khi xác định T(n). Tức là T(n) không thể biểu diễn bằng đơn vị thời 
gian giờ, phút, giây được. Tuy nhiên, không phải vì thế mà không thể so sánh được các giải 
thuật về mặt tốc độ. Nếu như thời gian thực hiện một giải thuật là T¡(n) = n’ và thời gian thực 
hiện của một giải thuật khác là T›(n) = 100n thì khi n đủ lón, thời gian thực hiện của giải thuật 
Tạ rõ ràng nhanh hơn giải thuật Tı. Khi đó, nếu nói rằng thời gian thực hiện giải thuật tỉ lệ 
thuận với n hay tỉ lệ thuận với n? cũng cho ta một cách đánh giá tương đối về tốc độ thực hiện 
của giải thuật đó khi n khá lớn. Cách đánh giá thời gian thực hiện giải thuật độc lập với máy 
tính và các yếu tô liên quan tới máy tính như vậy sẽ dẫn tới khái niệm gọi là độ phức tạp tính 
toán của giải thuật. 
Cho f và g là hai hàm xác định đương với mọi n. Hàm f(n) được gọi là O(g(n)) nếu tồn tại một 
hằng số c > 0 và một giá trị nọ sao cho: 

f(n) < c.g(n) với Y n È no 
Nghĩa là néu xét những giá trị n > nọ thì hàm f(n) sẽ bị chặn trên bởi một hằng số nhân với 
g(n). Khi đó, nếu f(n) là thời gian thực hiện của một giải thuật thì ta nói giải thuật đó có cấp là 
gín), ký hiệu: O(g(n))°” hay ©(g(n)). 
2.2. XÁC ĐỊNH ĐỘ PHỨC TẠP TÍNH TOÁN CỦA GIẢI THUẬT 


Việc xác định độ phức tạp tính toán của một giải thuật bất kỳ có thể rất phức tạp. Tuy nhiên, 


trong thực tế, đối với một số giải thuật ta có thể phân tích bằng một số quy tắc đơn giản: 


© Ký pháp O(.) được gọi là ký pháp chữ O lớn (big O notation) 
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2.2.1. Quy tắc cộng 

Nếu đoạn chương trình Dr có thời gian thực hiện T;(n) =O(ffn)) và đoạn chương trình P2 có 

thời gian thực hiện là T›(n) = O(g(n)) thì thời gian thực hiện P; rồi đến P» tiếp theo sẽ là 
Tun)" Tan) = O(max(ffn), g(n))) 

Chứng minh: 

T:(n) = O(fn)) nên 3 pu và c¡để T¡(n) < c¡.f{n) với Y n 2 nı. 

Tz(n) = O(g(n)) nên 3 m và c2 để T›(n) < c¿.g(n) với Y n> m. 

Chọn nọ = max(n¡, n2) và c = magic, ca) ta có: 

Với V nz no: 

Tın) + T¿(n) < c¡.f{n) + c¿.g(n) < c.f) + c.g(n) < c.(f{(n) + g(n)) < 2c.(max(f{n), g(n))). 

Vậy Tı(n) + T›(n) = O(max(fn), g(n))). 


2.2.2. Quy tắc nhân 

Nếu đoạn chương trình P có thời gian thực hiện là T(n) = O(fn)). Khi đó, nếu thực hiện k(n) 
lần đoạn chương trình P với k(n) = O(g(n)) thì độ phức tạp tính toán sẽ là O(g(n).f(n)) 

Chứng minh: 

Thời gian thực hiện k(n) lần đoạn chương trình P sẽ là k(n)T(n). Theo định nghĩa: 

3 ck >0 và nk để k(n) < c¿(g(n)) với Y n > nụ 

3 cr 2 0 và nr để T(n) < cr(f(n)) với Y n 2 nr 


Vậy với V n > max(nr, nx) ta có k(n).T(n) < cr.cx(g(n).f{n)) 


2.2.3. Một số tính chất 


Theo định nghĩa về độ phức tạp tính toán ta có một số tính chất: 

a) Với P(n) là một đa thức bậc k thì O(P(n)) = O(n®. Vì thế, một thuật toán có độ phức tạp 
cấp đa thức, người ta thường ký hiệu là O(n”) 

b) Với a và b là hai cơ số tuỳ ý và f(n) là một hàm duong thì log,f(n) = logab.log f(n). Tức là: 
O(log,ffn)) = O(ogpffn)). Vậy với một thuật toán có độ phức tạp cấp logarit của f(n), người ta 
ký hiệu là O(Iogf(n)) mà không cần ghi cơ số của logarit. 

c) Nếu một thuật toán có độ phức tạp là hằng số, tức là thời gian thực hiện không phụ thuộc 
vào kích thước dữ liệu vào thì ta ký hiệu độ phức tạp tính toán của thuật toán đó là O(1). 

d) Một giải thuật có cấp là các hàm như 2", n!, n” được gọi là một giải thuật có độ phức tạp 
hàm mũ. Những giải thuật như vậy trên thực tế thường có tốc độ rất chậm. Các giải thuật có 
cấp là các hàm đa thức hoặc nhỏ hơn hàm đa thức thì thường chấp nhận được. 

e) Không phải lúc nào một giải thuật cấp O(n') cũng tốt hơn giải thuật cấp O(n'). Bởi nếu như 


giải thuật cấp O(n?) có thời gian thực hiện là 1000n? còn giải thuật cấp Oo") lại chỉ cần thời 
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gian thực hiện là nỶ, thì với n < 1000, rõ ràng giải thuật OC tốt hơn giải thuật O(n”). Trên 
đây là xét trên phương diện tính toán lý thuyết để định nghĩa giải thuật này "tốt" hơn giải 
thuật kia, khi chọn một thuật toán dë giải một bài toán thực tế phải có một sự mềm dẻo nhất 
định. 

f) Cũng theo định nghĩa về độ phức tạp tính toán 

Một thuật toán có cấp O(1) cũng có thể viết là O(logn) 

Một thuật toán có cấp O(logn) cũng có thê viết là O(n) 

Một thuật toán có cấp O(n) cũng có thể viết là O(n.logn) 

Một thuật toán có cấp O(n.logn) cũng có thê viết là O(nô 

Một thuật toán có cấp OC) cũng có thê viết là O(n”) 

Một thuật toán có cấp O(n’) cũng có thê viết là O(2") 

Vậy độ phức tạp tính toán của một thuật toán có nhiều cách ký hiệu, thông thường người ta 
chọn cấp thấp nhất có thé, tức là chọn ký pháp O(f(n)) với f(n) là một hàm tăng chậm nhất 
theo n. 

Dưới đây là một số hàm số hay dùng để ký hiệu độ phức tạp tính toán và bảng giá trị của 


chúng để tiện theo dõi sự tăng của hàm theo đối số n. 


logn n nlog;n n n 2 

0 1 0 1 1 2 

1 2 2 4 H H 

2 4 H 16 64 16 

3 8 24 64 512 256 

4 16 64 256 4096 65536 

5 32 160 1024 32768 2147483648 
Ví dụ: 


Thuật toán tính tông các số từ 1 tói n: 
Nếu viết theo sơ đồ như sau: 
Input n; 
S := 0; 
for i := 1 to n do S := S + i; 
Output S; 
Các đoạn chương trình ở các dòng 1, 2 và 4 có độ phức tap tính toán là O(1). 
Vòng lặp ở dòng 3 lặp n lần phép gán S := S + ¡, nên thời gian tính toán tỉ lệ thuận với n. Tức 
là độ phức tạp tính toán là O(n). 
Vậy độ phức tạp tính toán của thuật toán trên là O(n). 
Còn nếu viết theo sơ đồ như sau: 


Input n; 
S :=n* (n - 1) div 2; 
Output S; 
Thì độ phức tạp tính toán của thuật toán trên là O(1), thời gian tính toán không phụ thuộc vào 


n. 
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2.2.4. Phép toán tích cực 

Dựa vào những nhận xét đã nêu ở trên về các quy tắc khi đánh giá thời gian thực hiện giải 
thuật, ta chỉ cần chú ý đến một phép toán mà ta gọi là phép toán tích cực trong một đoạn 
chương trình. Đó là một phép toán trong một đoạn chương trình mà số lần thực hiện 
không ít hơn các phép toán khác. 


Xét hai đoạn chương trình tính e" bằng công thức gần đúng: 


2 n n H 
E WE ¬> Với x và n cho trước. 
H 21 DEI 

{Chương trình 1: Tính riêng tùng hạng tử ròi cộng lại] {Tính hạng tử sau qua hạng tử trước} 
program Espl: program Exp2; 
var var 
i, j, n: Integer; i, n: Integer; 
X, p, S: Real; Xx, p, S: Real; 
begin begin 
Write('x, n = '); ReadIn(x, n); Write('x, n = '); Readln(x, n); 
S := 0; S := 1; p :=1; 
for i := 0 to n do for i := 1 to n do 

begin begin 

CAE p:=p*x/i; 

for j := 1 to i dop :=p*x/j; S:=S+p; 

S:=S+p; end; 

end; WriteLn('exp(', x:1:4, ') = ', §:1:4); 
WriteLn ('exp(', x:1:4, ') = ', 8:1:4); end. 
end. 
Ta có thể coi phép toán tích cực ở đây là Ta có thể coi phép toán tích cực ở đây là phép 

p:=p*x/j; p:=p*x/i. 

Số lần thục hiện phép toán này là: Số lần thực hiện phép toán này là n. 
0+1+2+„+n=ní(n - 1}/2 lần. Vậy độ phúc tạp tính toán của thuật toán là 0(n). 
Vậy độ phúc tạp tính toán của thuật toán là Gin" 


2.3. ĐỘ PHỨC TẠP TÍNH TOÁN VỚI TÌNH TRẠNG DỮ LIỆU VÀO 


Có nhiều trường hợp, thời gian thực hiện giải thuật không phải chỉ phụ thuộc vào kích thước 
dữ liệu mà còn phụ thuộc vào tình trạng của dữ liệu đó nữa. Chẳng hạn thời gian sắp xếp một 
dãy số theo thứ tự tăng dần mà dãy đưa vào chưa có thứ tự sẽ khác với thời gian sắp xếp một 
dãy số đã sắp xếp rồi hoặc đã sắp xếp theo thứ tự ngược lại. Lúc này, khi phân tích thời gian 
thực hiện giải thuật ta sẽ phải xét tới trường hợp tốt nhất, trường hợp trung bình và trường 
hợp xấu nhất. Khi khó khăn trong việc xác định độ phức tạp tính toán trong trường hợp trung 
bình (bởi việc xác định T(n) trung bình thường phải dùng tới những công cụ toán phức tạp), 


người ta thường chỉ đánh giá độ phức tạp tính toán trong trường hợp xấu nhất. 
2.4. CHI PHÍ THỰC HIỆN THUẬT TOÁN 


Khái niệm độ phức tạp tính toán đặt ra là để đánh giá chi phí thực hiện một giải thuật về mặt 
thời gian. Nhưng chỉ phí thực hiện giải thuật còn có rất nhiều yếu tố khác nữa: không gian bộ 


nhớ phải sử dụng là một ví dụ. Tuy nhiên, trên phương diện phân tích lý thuyết, ta chỉ có thể 
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xét tới vẫn đề thời gian bởi việc xác định các chỉ phí khác nhiều khi rất mơ hò và phức tạp. 
Đối với người lập trình thì khác, một thuật toán với độ phức tạp dù rất thấp cũng sẽ là vô dụng 
nếu như không thể cài đặt được trên máy tính, chính vì vậy khi bắt tay cài đặt một thuật toán, 
ta phải biết cách tô chức đữ liệu một cách khoa học, tránh lãng phí bộ nhớ không cần thiết. Có 
một quy luật tương đối khi tổ chức đữ liệu: Tiết kiệm được bộ nhớ thì thời gian thực hiện 
thường sẽ chậm hơn và ngược lại. Biết cân đối, dung hoà hai yêu tố đó là một kỹ năng cần 


thiết của người lập trình. 


Bài tập 

Bài 1 

Chứng minh một cách chặt chẽ: Tại sao với P(n) là đa thức bậc k thì một giải thuật cấp O(P(n)) 
cũng có thể coi là cấp O(n”) 

Bài 2 

Xác định độ phức tạp tính toán của những giải thuật sau bằng ký pháp chữ O lớn: 

a) Đoạn chương trình tính tổng hai đa thức: 

P(x) = amx” + am ix”"! +... + aix + ao và Q(X) = bax? + an-1xX™! + ... + bịx + bọ 

Đề được đa thức 

R()= cpXp + cp.xp” +... + CIX + Cụ 


if m < n then p := m else p := n; {p = min(m, n)} 
for i := 0 to p do c[i] := a[i] + b[i]; 


if p < m then 
for i := p+ 1 to mdo c[i] := a[i] 
else 


for i := p+ 1 to n do c[i] := b[i]; 
while (p > 0) and (c[p] = 0) do p := p- 1; 
b) Đoạn chương trình tính tích hai đa thức: 


P(X) = amx”" + am.x”"! +... + aix + ao và Q(X) = bạX” + anx” + ... + bus + bọ 


Đề được đa thức 


1 


R(x) = Gei + cp-1X™ +... + CIX + Co 


p:=m+tn; 
for i := 0 to p do c[i] := 0; 
for i := 0 to m do 
for j := 0 to n do 
c[i +j] := e[i +j] + a[i] * b[j]; 
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§3. ĐỆ QUY VÀ GIẢI THUẬT ĐỆ QUY 


3.1. KHÁI NIM VÈ DE QUY 


Ta nói một đối tượng là đệ quy nếu nó được định nghĩa qua chính nó hoặc một đối tượng khác 
cùng dạng với chính nó bằng quy nạp. 

Ví dụ: Đặt hai chiếc gương cầu đối diện nhau. Trong chiếc gương thứ nhất chứa hình chiếc 
gương thứ hai. Chiếc gương thứ hai lại chứa hình chiếc gương thứ nhất nên tất nhiên nó chứa 
lại hình ảnh của chính nó trong chiếc gương thứ nhất... Ở một góc nhìn hợp lý, ta có thê thấy 
một dãy ảnh vô hạn của cả hai chiếc gương. 

Một ví dụ khác là nếu người ta phát hình trực tiếp phát thanh viên ngồi bên máy vô tuyến 
truyền hình, trên màn hình của máy này lại có chính hình ảnh của phát thanh viên đó ngồi bên 
máy vô tuyến truyền hình và cứ như thê... 

Trong toán học, ta cũng hay gặp các định nghĩa đệ quy: 

Giai thừa của n (n!): Nếu n = 0 thì n! = 1; nếu n > 0 thì n! = n.(n-])! 

Ký hiệu số phần tử của một tập hợp hữu han S là |S|: Nếu S = Ø thì |S| = 0; Nếu S + Ø thì tất 
có một phần tử x e S, khi đó |S| = |S\{x}| + 1. Đây là phương pháp định nghĩa tập các số tự 
nhiên. 

3.2. GIẢI THUẬT ĐỆ QUY 

Nếu lời giải của một bài toán P được thực hiện bằng lời giải của bài toán P' có dạng giống như 
P thì đó là một lời giải đệ quy. Giải thuật tương ứng với lời giải như vậy gọi là giải thuật đệ 
quy. Mới nghe thì có vẻ hơi lạ nhưng điểm máu chốt cần lưu ý là: P' tuy có dạng giống như P, 
nhưng theo một nghĩa nào đó, nó phải "nhỏ" hơn P, dē giải hơn P và việc giải nó không cần 
dùng đến P. 

Trong Pascal, ta đã thấy nhiều ví dụ của các hàm và thủ tục có chứa lời gọi đệ quy tới chính 
nó, bây giờ, ta tóm tắt lại các phép đệ quy trực tiếp và tương hỗ được viết như thé nào: 

Định nghĩa một hàm đệ quy hay thủ tục đệ quy gồm hai phần: 

Phần neo (anchor): Phần này được thực hiện khi mà công việc quá đơn giản, có thé giải trực 
tiếp chứ không cần phải nhờ đến một bài toán con nào cả. 

Phần đệ quy: Trong trường hợp bài toán chưa thể giải được bằng phần neo, ta xác định những 
bài toán con và gọi đệ quy giải những bài toán con đó. Khi đã có lời giải (đáp số) của những 
bài toán con rồi thì phối hợp chúng lại để giải bài toán đang quan tâm. 

Phần đệ quy thể hiện tính "quy nạp" của lời giải. Phần neo cũng rất quan trọng bởi nó quyết 


định tới tính hữu hạn dừng của lời giải. 
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3.3. VÍ DỤ VÉ GIẢI THUẬT ĐỆ QUY 


3.3.1. Hàm tính giai thừa 


function Factorial(n: Integer): Integer; (Nhận vào số tụ nhiên n và trả về n!] 
begin 

if n = 0 then Factorial := 1 (Phần neo} 

else Factorial := n * Factorial(n - 1); (Phần đệ quy} 
end; 


Ở đây, phần neo định nghĩa kết quả hàm tai n = 0, còn phần đệ quy (ứng với n > 0) sẽ định 
nghĩa kết quả hàm qua giá trị của n và giai thừa của n - 1. 

Ví dụ: Dùng hàm này để tính 3!, trước hết nó phải đi tính 2! bởi 3! được tính bằng tích của 3 * 
2!. Tương tự để tính 21. nó lại đi tính 1! bởi 2! được tính bằng 2 * 1!. Áp dụng bước quy nạp 
này thêm một lần nữa, 1! = 1 * 01, và ta đạt tới trường hợp của phần neo, đến đây từ giá trị 1 
của 0!, nó tính được 1! = 1*1 = 1; từ giá trị của 1! nó tính được 2!; từ giá trị của 2! nó tính 


được 3!; cuối cùng cho kết quả là 6: 


3!=3+#2! 
Ỷ 
21=2*11 
Ỷ 
1 =1* 01 
Ỷ 
01 =1 


3.3.2. Dãy số Fibonacci 

Dãy số Fibonacci bắt nguồn từ bài toán cô về việc sinh sản của các cặp thỏ. Bài toán đặt ra 
như sau: 

1) Các con thỏ không bao giờ chết 

2) Hai tháng sau khi ra đời, mỗi cặp thỏ mới sẽ sinh ra một cặp thỏ con (một đực, một cái) 

3) Khi đã sinh con rồi thì cứ mỗi tháng tiếp theo chúng lại sinh được một cặp con mới 

Giá sử từ đầu tháng 1 có một cặp mới ra đời thì đến giữa tháng thứ n sẽ có bao nhiêu cặp. 

Ví dụ, n = 5, ta thấy: 

Giữa tháng thứ 1:1 cặp (ab) (cặp ban đầu) 

Giữa tháng thứ 2:1 cặp (ab) (cặp ban đầu vẫn chưa đẻ) 

Giữa tháng thứ 3:2 cặp (AB)(cđ) (cặp ban đầu đẻ ra thêm 1 cặp con) 

Giữa tháng thứ 4:3 cặp (AB)(cd)(e?) (cặp ban đầu tiếp tục đẻ) 

Giữa tháng thứ 5:5 cặp (AB)(CD)(eÐ(gh)(k) (cả cặp (AB) và (CD) cùng đẻ) 

Bây giờ, ta xét tới việc tính số cặp thỏ ở tháng thứ n: F(n) 

Nếu mỗi cặp thỏ ở tháng thứ n - 1 đều sinh ra một cặp thỏ con thì số cặp thỏ ở tháng thứ n sẽ 
là: 


F(n) =2 * F(n - 1) 


Đại học Sw phạm Hà Nội, 1999-2002 


Cấu trúc dữ liệu và Giải thuật Q 47 ~ 


Nhung vấn đề không phải như vậy, trong các cặp thỏ ở tháng thứ n - 1, chỉ có những cặp thỏ 
đã có ở tháng thứ n - 2 mới sinh con ở tháng thứ n được thôi. Do đó F(n) = F(n - 1) + Fn - 2) 
(= số cũ + số sinh ra). Vậy có thê tính được F(n) theo công thức sau: 
F(n) = I nễun<2 
F(n) =F( - 1) + F(n - 2) nếu n >2 
function F(n: Integer): Integer; (Tính số cặp thỏ ở tháng thứ n} 
begin 
if n < 2 then F := 1 (Phần neo} 


else F := F(n - 1) + Fịn - 2); (Phẩn đệ quy) 
end; 


3.3.3. Giả thuyết của Collatz 
Collatz đưa ra giả thuyết rằng: với một số nguyên dương X, néu X chăn thì ta gán X := X div 
2; nếu X lẻ thì ta gán X := X * 3 + 1. Thì sau một số hữu hạn bước, ta sẽ có X = 1. 


Ví du: X = 10, các bước tién hành như sau: 


1. X=10 (chn) = X := 10 div 2; (5) 
2. Xe=5 Déi + X:=5*3+1; (16) 
3. X=16 (chn) = X := l6 div 2; (8) 
4. X=8 (chn} = X :=8 div 2 (4) 
5, X=4 (chn) + X :=4div 2 (2) 
6. X=2 (chn) œ X:=2 div 2 (1) 


Cứ cho giả thuyết Collatz là đúng dän. ván đề đặt ra là: Cho trước số 1 cùng với hai phép toán 
* 2 và div 3, hãy sử dụng một cách hợp lý hai phép toán đó để biến số 1 thành một giá trị 
nguyên dương X cho trước. 
Ví dụ: X = 10 ta có 1*2 * 2*2 *2 dịv 3 * 2 = 10. 
Dễ thấy răng lời giải của bài toán gần như thứ tự ngược của phép biến đổi Collatz: Để biểu 
diễn số X > 1 bằng một biểu thức bắt đầu băng số 1 và hai phép toán "* 2", "div 3". Ta chia 
hai trường hợp: 
Nếu X chẵn, thì ta tìm cách biểu diễn số X div 2 và viết thêm phép toán * 2 vào cuối 
Nếu X lẻ, thì ta tìm cách biểu diễn số X * 3 + 1 và viết thêm phép toán div 3 vào cuối 
procedure Solve(X: Integer); (In ra cách biểu diễn số X} 
begin 
if X = 1 then Write(X) (Phần neo} 
else (Phần đệ quy} 
if X mod 2 = 0 then {X chẳn) 

begin 

Solve (X div 2); (Tìm cách biểu diễn số X div 2] 

Write(' * 2'); {Sau đó viết thêm phép toán * 2} 

end 

else {X lė} 
begin 
Solve(X * 3 + 1); (Tìm cách biểu diễn số X * 3 +1} 
Write(' div 211: {Sau đó viết thêm phép toán div 3} 

end; 
end; 
Trên đây là cách việt đệ quy trực tiêp, còn có một cách viêt đệ quy tương hồ như sau: 


procedure Solve(X: Integer); forward; (Thủ tục tìm cách biểu diễn số X: Khai báo trước, đặc tả sau} 
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procedure Solve0dd(X: Integer); (Thủ tục tìm cách biểu diễn số X > 1 trong trường hợp X lẻ} 


begin 
§olve(X * 3 + 1); 
Write(' div 3'); 
end; 


procedure SolveEven(X: Integer); (Thủ tục tìm cách biểu diễn số X trong trường hợp X chãn} 


begin 
Solve(X div 2); 
Write(' * 2'); 
end; 


procedure Solve(X: Integer); {Phần đặc tả của thủ tục Solve đã khai báo trước ở trên} 
begin 
if X = 1 then Write (X) 
else 
if X mod 2 = 1 then Solve0dd (X) 
else SolveEven (X) ; 
end; 


Trong cả hai cách viết, để tìm biểu diễn số X theo yêu cầu chỉ cần gọi Solve(X) là xong. Tuy 
nhiên trong cách viết đệ quy trực tiếp, thủ tục Solve có lời gọi tới chính nó, còn trong cách 
viết đệ quy tương hỗ, thủ tục Solve chứa lời gọi tới thủ tục SolveOdd và SolveEven, hai thủ 
tục này lại chứa trong nó lời gọi ngược về thủ tục Solve. 

Đối với những bài toán nêu trên, việc thiết kế các giải thuật đệ quy tương ứng khá thuận lợi vì 
cả hai đều thuộc dạng tính giá trị hàm mà định nghĩa quy nạp của hàm đó được xác định dễ 
dàng. 

Nhung không phải lúc nào phép giải đệ quy cũng có thể nhìn nhận và thiết kế dễ dàng như 
vậy. Thế thì vấn đề gì cần lưu tâm trong phép giải đệ quy?. Có thể tìm thấy câu trả lời qua 
việc giải đáp các câu hỏi sau: 

1. Có thể định nghĩa được bài toán dưới dạng phối hợp của những bài toán cùng loại nhưng 
nhỏ hơn hay không ? Khái niệm "nhỏ hơn" là thé nào ? 

2. Trường hợp đặc biệt nào của bài toán sẽ được coi là trường hợp tầm thường và có thể giải 


ngay được đề đưa vào phần neo của phép giải đệ quy 

3.3.4. Bài toán Tháp Hà Nội 

Đây là một bài toán mang tính chất một trò chơi, tương truyền rằng tại ngôi đền Benares có ba 
cái cọc kim cương. Khi khai sinh ra thế giới, thượng dë đặt n cái đĩa bằng vàng chồng lên 


nhau theo thứ tự giảm dần của đường kính tính từ dưới lên, đĩa to nhất được đặt trên một 


chiêc cọc. 
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Hình 5: Tháp Hà Nội 
Các nhà sư lần lượt chuyên các đĩa sang cọc khác theo luật: 

e Khidi chuyển một đĩa, phải đặt nó vào một trong ba cọc đã cho 

e Mỗi lần chỉ có thê chuyển một đĩa và phải là đĩa ở trên cùng 

e "Tat một vị trí, đĩa nào mới chuyền đến sẽ phải đặt lên trên cùng 

e Đĩa lớn hơn không bao giờ được phép đặt lên trên đĩa nhỏ hơn (hay nói cách khác: 
một đĩa chỉ được đặt trên cọc hoặc đặt trên một đĩa lớn hơn) 

Ngày tận thế sẽ đến khi toàn bộ chồng đĩa được chuyên sang một cọc khác. 

Trong trường hợp có 2 đĩa, cách làm có thể mô tả như sau: 

Chuyền đĩa nhỏ sang cọc 3, đĩa lớn sang cọc 2 rồi chuyên đĩa nhỏ từ cọc 3 sang cọc 2. 

Những người mới bắt đầu có thể giải quyết bài toán một cách dễ dàng khi số đĩa là ít, nhưng 
họ sẽ gặp rất nhiều khó khăn khi số các đĩa nhiều hơn. Tuy nhiên, với tư duy quy nạp toán học 
và một máy tính thì công việc trở nên khá dễ dàng: 

Có n đĩa. 

e Néun= I thì ta chuyền đĩa duy nhất đó từ cọc 1 sang cọc 2 là xong. 

e Giả sử rằng ta có phương pháp chuyên được n - 1 đĩa từ cọc 1 sang cọc 2, thì cách 
chuyền n - 1 đĩa từ cọc x sang cọc y (1 < x, y < 3) cũng tương tự. 

e Giả sử ràng ta có phương pháp chuyên được n - 1 đĩa giữa hai cọc bất kỳ. Để chuyển n 
đĩa từ cọc x sang cọc y, ta gọi cọc còn lại là z (=6 - x - y). Coi đĩa to nhất là ... cọc, 
chuyền n - 1 đĩa còn lại từ cọc x sang cọc z, sau đó chuyên đĩa to nhất đó sang cọc y 
và cuối cùng lại coi đĩa to nhất đó là cọc, chuyên n - 1 đĩa còn lại đang ở cọc z sang 
cọc y chồng lên đĩa to nhất. 

Cách làm đó được thể hiện trong thủ tục đệ quy dưới đây: 
procedure Move(n, x, y: Integer); (Thủ tục chuyên n đĩa từ cọc x sang cọc y} 
begin i 
if n= 1 then WriteLn ('Chuyên 1 đĩa từ ', x, ' sang É y) ! 
else (Dé chuyên n > 1 đĩa tù cọc x sang cọc y, ta chia làm 3 công đoạn} 
begin 
Move(n - 1, x, 6 -x - y); {Chuyên n - 1 đĩa tù cọc x sang cọc trung gian} 
Move (1, x, y); (Chuyển đĩa to nhất tù x sang y} 
Move(n - 1, 6 - x - y, y); {Chuyên n - 1 đĩa tù cọc trung gian sang cọc y} 


end; 
end; 


Chương trình chính rất đơn giản, chỉ gồm có 2 việc: Nhập vào số n và gọi Move(n, 1, 2). 
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3.4. HIỆU LỰC CỦA ĐỆ QUY 


Qua các ví dụ trên, ta có thể thấy đệ quy là một công cụ mạnh để giải các bài toán. Có những 
bài toán mà bên cạnh giải thuật đệ quy vẫn có những giải thuật lặp khá đơn giản và hữu hiệu. 
Chẳng hạn bài toán tính giai thừa hay tính số Fibonacci. Tuy vậy, đệ quy vẫn có vai trò xứng 
đáng của nó, có nhiều bài toán mà việc thiết kế giải thuật đệ quy đơn giản hơn nhiều so với lời 
giải lặp và trong một số trường hợp chương trình đệ quy hoạt động nhanh hơn chương trình 
viết không có đệ quy. Giải thuật cho bài Tháp Hà Nội và thuật toán sắp xếp kiểu phân đoạn 
(QuickSort) mà ta sẽ nói tới trong các bài sau là những ví dụ. 

Có một mối quan hệ khăng khít giữa đệ quy và quy nạp toán học. Cách giải đệ quy cho một 
bài toán dựa trên việc định rõ lời giải cho trường hợp suy biến (neo) rồi thiết kế làm sao đề lời 
giải của bài toán được suy ra từ lời giải của bài toán nhỏ hơn cùng loại như thế. Tương tự như 
vậy, quy nạp toán học chứng minh một tính chất nào đó ứng với số tự nhiên cũng bằng cách 
chứng minh tính chất đó đúng với một số trường hợp cơ sở (thường người ta chứng minh nó 
đúng với 0 hay đúng với 1) và sau đó chứng minh tính chất đó sẽ đúng với n bất kỳ néu nó đã 
đúng với mọi số tự nhiên nhỏ hơn n. 

Do đó ta không láy làm ngạc nhiên khi thấy quy nạp toán học được dùng để chứng minh các 
tính chất có liên quan tới giải thuật đệ quy. Chẳng hạn: Chứng minh số phép chuyền đĩa để 
giải bài toán Tháp Hà Nội với n đĩa là 2"-I: 

Rõ ràng là tính chất này đúng với n = 1, bởi ta cần 2! - 1 = 1 lần chuyền đĩa dë thực hiện yêu 
cầu 

Với n > 1; Giả sử rằng để chuyển n - 1 đĩa giữa hai cọc ta cần 2”! - 1 phép chuyên đĩa, khi đó 
để chuyển n đĩa từ cọc x sang cọc y, nhìn vào giải thuật đệ quy ta có thê thấy rằng trong 
trường hợp này nó cần (2™! - 1) + 1 + (2"! - 1) = 2" - 1 phép chuyển đĩa. Tính chất được 
chứng minh đúng với n 


Vậy thì công thức này sẽ đúng với mọi n. 


Thật đáng tiếc nếu như chúng ta phải lập trình với một công cụ không cho phép đệ quy, 
nhưng như vậy không có nghĩa là ta bó tay trước một bài toán mang tính đệ quy. Mọi giải 
thuật đệ quy đều có cách thay thế bằng một giải thuật không đệ quy (khử đệ quy), có thê nói 
được như vậy bởi tất cả các chương trình con đệ quy sẽ đều được trình dịch chuyên thành 
những mã lệnh không đệ quy trước khi giao cho máy tính thực hiện. 

Việc tìm hiểu cách khử đệ quy một cách "máy móc" như các chương trình dịch thì chỉ cần 
hiểu rõ cơ chế xếp chồng của các thủ tục trong một dây chuyên gọi đệ quy là có thể làm được. 
Nhưng muốn khử đệ quy một cách tỉnh tế thì phải tuỳ thuộc vào từng bài toán mà khử đệ quy 


cho khéo. Không phải tìm đâu xa, những kỹ thuật giải công thức truy hồi bằng quy hoạch 
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động là ví dụ cho thấy tính nghệ thuật trong những cách tiếp cận bài toán mang bản chất đệ 
quy để tìm ra một giải thuật không đệ quy đây hiệu quả. 

Bài tập 

Bài 1 

Viết một hàm đệ quy tính ước số chung lớn nhất của hai số tự nhiên a, b không đồng thời 
bằng 0, chỉ rõ đâu là phần neo, đâu là phần đệ quy. 

Bài 2 

Viết một hàm đệ quy tính C* theo công thức truy hồi sau: 

TE 

Với 0<k<n: C: =C] +C, 

Chứng minh rằng hàm đó cho ra đúng giá trị C* = =.. ; 
k!(n-k)! 

Bài 3 

Nêu rõ các bước thực hiện của giải thuật cho bài Tháp Hà Nội trong trường hợp n = 3. 


Viết chương trình giải bài toán Tháp Hà Nội không đệ quy 
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§4. CÁU TRÚC DU LIEU BIÉU DIEN DANH SÁCH 


4.1. KHÁI NIỆM DANH SÁCH 


Danh sách là một tập sắp thứ tự các phần tử cùng một kiểu. Đối với danh sách, người ta có 
một số thao tác: Tìm một phần tử trong danh sách, chèn một phần tử vào danh sách, xoá một 


phần tử khỏi danh sách, sắp xếp lại các phần tử trong danh sách theo một trật tự nào đó v.v... 
4.2. BIÊU DIEN DANH SÁCH TRONG MÁY TÍNH 


Việc cài đặt một danh sách trong máy tính tức là tìm một cấu trúc dë liệu cụ thể mà máy tính 
hiểu được để lưu các phần tử của danh sách đồng thời viết các đoạn chương trình con mô tả 


các thao tác cân thiệt đôi với danh sách. 


4.2.1. Cài đặt bằng mảng một chiều 

Khi cài đặt danh sách bằng một mảng, thì có một biến nguyên n lưu só phàn tử hiện có trong 
danh sách. Nếu mảng được đánh số bắt đầu từ 1 thì các phần tử trong danh sách được cất giữ 
trong mảng bằng các phần tử được đánh số từ 1 tới n. 

Chèn phần tử vào mảng: 


Mảng ban đầu: 


å "F Frrerrrrp 
EEE” d i „ẩ 


Nêu muôn chèn một phân tử V vào mảng tại vi trí p, ta phải: 


Dôn tât cả các phân tử từ vi trí p tới tới vi trí n về sau một vi trí: 


p 


La zg og og d La d ad as 
al E) “đi “ái äl ] 2| E: BE 


Đặt giá trị V vào vị trí p: 


ad d dd ed de dd dadd 
Wë äl BW el H WE) = E i Wë Wi 


Tăng n lên 1 


Xoá phần tử khỏi mảng 


Mảng ban đầu: 


Muốn xoá phân tử thứ p của mảng mà vẫn giữ nguyên thứ tự các phân tử còn lại, ta phải: 


Dôn tât cả các phân tử từ vi trí p + 1 tới vị trí n lên trước một vi trí: 
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p 
"7F rrrrrrPr-r-m 
d a EE 


Giám n đi 1 


[^2[s[c|[s[z:[r[»[+[:[+x[: 3<] 


Trong trường hợp cần xóa một phần tử mà không cần duy trì thứ tự của các phần tử khác, ta 


chỉ cân đảo giá trị của phân tử cân xóa cho phân tử cuôi cùng rôi giảm sô phân tử của mảng (n) 


đi 1. 


4.2.2. Cài đặt bằng danh sách nối đơn 

Danh sách nối đơn gồm các nút được nối với nhau theo một chiều. Mỗi nút là một bản ghi 
(record) gồm hai trường: 

Trường thứ nhất chứa giá trị lưu trong nút đó 

Trường thứ hai chứa liên kết (con trỏ) tới nút kế tiếp, tức là chứa một thông tin đủ để biết nút 
kế tiếp nút đó trong danh sách là nút nào, trong trường hợp là nút cuối cùng (không có nút kế 


tiếp), trường liên kết này được gán một giá trị đặc biệt. 


Giá trị 


Liên kết 
Hình 6: Cấu trúc nút của danh sách nối đơn 
Nút đầu tiên trong danh sách được gọi là chốt của danh sách nối đơn (Head). Đề duyệt danh 


sách nói đơn, ta bắt đầu từ chốt, dựa vào trường liên kết đề đi sang nút kế tiếp, đến khi gặp giá 


trị đặc biệt (duyệt qua nút cuối) thì dừng lại 


Hình 7: Danh sách nối đơn 
Chèn phần tử vào danh sách nối đơn: 
Danh sách ban đầu: 


Head 


Muốn chèn thêm một nút chứa giá trị V vào vi trí của nút p, ta phải: 
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a) Tạo ra một nút mới NewNode chứa giá trị V: 


b) Tìm nút q là nút đứng trước nút p trong danh sách (nút có liên kết tới p). 
bı) Nếu tìm thấy thì chỉnh lại liên kết: q liên kết tới NewNode, NewNode liên kết tới p 


Head 


bạ) Nếu không có nút đứng trước nút p trong danh sách thì tức là p = Head, ta chỉnh 
lại liên kết: NewNode liên kết tới Head (cũ) và đặt lại Head = NewNode 

Xoá phần tử khỏi danh sách nối đơn: 

Danh sách ban đầu: 


Muốn huỷ nút p khỏi danh sách nối đơn, ta phải: 

Tìm nút q là nút đứng liền trước nút p trong danh sách (nút có liên kết tới p) 

Nếu tìm thấy thì chỉnh lại liên kết: q liên kết thăng tới nút liền sau p, khi đó quá trình duyệt 
danh sách bắt đầu từ Head khi duyệt tới q sẽ nhảy qua không duyệt p nữa. Trên thực tế khi cài 


đặt bằng các bién động và con trỏ, ta nên có thao tác giải phóng bộ nhớ đã cấp cho nút p 


Nếu không có nút đứng trước nút p trong danh sách thì tức là p = Head, ta chỉ việc đặt lại 
Head bằng nút đứng kế tiếp Head (cũ) trong danh sách. Sau đó có thê giải phóng bộ nhớ cấp 
cho nút p (Head cũ) 

4.2.3. Cài đặt bằng danh sách nối kép 


Danh sách női kép gồm các nút được nối với nhau theo hai chiều. Mỗi nút là một bản ghi 


(record) gồm ba trường: 
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e ` Trường thứ nhất chứa giá trị lưu trong nút đó 

e ` Trường thứ hai (Next) chứa liên kết (con trỏ) tới nút kế tiếp, tức là chứa một thông tin 
đủ đề biết nút kế tiếp nút đó là nút nào, trong trường hợp là nút cuối cùng (không có 
nút kế tiếp), trường liên kết này được geän một giá ti đặc biệt. 

e ` Trường thứ ba (Prev) chứa liên kết (con trỏ) tới nút liền trước, tức là chứa một thông 
tin đủ để biết nút đứng trước nút đó trong danh sách là nút nào, trong trường hợp là 
nút đầu tiên (không có nút liền trước) trường này được gán một giá trị đặc biệt. 

Liên kết sau 


Liên kết trước 
Hình 8: Cấu trúc nút của danh sách nối kép 
Khác với danh sách nối đơn, danh sách nối kép có hai chốt: Nút đầu tiên trong danh sách 
được gọi là First, nút cuối cùng trong danh sách được gọi là Last. Để duyệt danh sách nối kép, 
ta có hai cách: Hoặc bắt đầu từ First, dựa vào liên kết Next dë đi sang nút kế tiếp, đến khi gặp 
giá trị đặc biệt (duyệt qua nút cuối) thì dừng lại. Hoặc bắt đầu từ Last, dựa vào liên kết Prev 


dë đi sang nút liền trước, đến khi gặp giá trị đặc biệt (duyệt qua nút đầu) thì dừng lại 


Hình 9: Danh sách nối kép 


Việc chèn / xoá vào danh sách nối kép cũng đơn giản chỉ là kỹ thuật chỉnh lại các mối liên kết 


giữa các nút cho hợp lý, ta coi như bài tập. 


4.2.4. Cài đặt bằng danh sách nối vòng một hướng 

Trong danh sách nối đơn, phần tử cuối cùng trong danh sách có trường liên kết được gán một 
giá trị đặc biệt (thường sử dụng nhất là giá trị nil). Nếu ta cho trường liên kết của phần tử cuối 
cùng trỏ thăng về phần tử đầu tiên của danh sách thì ta sẽ được một kiểu danh sách mới gọi là 


danh sách nôi vòng một hướng. 


Hình 10: Danh sách nối vòng một hướng 
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Đối với danh sách nối vòng, ta chỉ cần biết một nút bất kỳ của danh sách là ta có thể duyệt 
được hết các nút trong danh sách bằng cách đi theo hướng của các liên kết. Chính vì lý do này, 
khi chèn xoá vào danh sách nối vòng, ta không phải xử lý các trường hợp riêng khi chèn xoá 


tại vi trí của chôt 


4.2.5. Cài đặt bằng danh sách nối vòng hai hướng 

Danh sách nối vòng một hướng chỉ cho ta duyệt các nút của danh sách theo một chiều, nếu cải 
đặt bằng danh sách nối vòng hai hướng thì ta có thê duyệt các nút của danh sách cả theo chiều 
ngược lại nữa. Danh sách nối vòng hai hướng có thê tạo thành từ danh sách nối kép nếu ta cho 
trường Prev của nút First trỏ thăng tới nút Last còn trường Next của nút Last thì trỏ thắng về 


nút First. 


Hình 11: Danh sách nối vòng hai hướng 


Bài tập 

Bài 1 

Lập chương trình quản lý danh sách học sinh, tuỳ chọn loại danh sách cho phù hợp, chương 
trình có những chức năng sau: (Hồ sơ một học sinh giả sử có: Tên, lớp, số điện thoại, điểm 
TB...) 

Cho phép nhập danh sách học sinh từ bàn phím hay từ file. 

Cho phép in ra danh sách học sinh gồm có tên và xếp loại 

Cho phép in ra danh sách học sinh gồm các thông tin đầy đủ 

Cho phép nhập vào từ bản phím một tên học sinh và một tên lớp, tìm xem có học sinh có tên 
nhập vào trong lớp đó không ?. Nếu có thì in ra số điện thoại của học sinh đó 

Cho phép vào một hồ sơ học sinh mới từ bàn phím, bô sung học sinh đó vào danh sách học 
sinh, 1n ra danh sách mới. 

Cho phép nhập vào từ bàn phím tên một lớp, loại bỏ tất cả các học sinh của lớp đó khỏi danh 
sách, 1n ra danh sách mới. 

Có chức năng sắp xếp danh sách học sinh theo thứ tự giảm dần của điểm trung bình 

Cho phép nhập vào hồ sơ một học sinh mới từ bàn phím, chèn học sinh đó vào danh sách mà 
không làm thay đổi thứ tự đã sắp xếp, in ra danh sách mới. 


Cho phép lưu trữ lại trên đĩa danh sách học sinh khi đã thay đối. 
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Bài 2 
Có n người đánh số từ 1 tói n ngòi quanh một vòng tròn (n < 10000), cùng chơi một trò chơi: 
Một người nào đó đếm 1, người kế tiếp, theo chiều kim đồng hồ đếm 2... cứ như vậy cho tới 
người đếm đến một số nguyên tó thì phải ra khỏi vòng tròn, người kế tiếp lại đếm bắt đầu từ 1: 
Hãy lập chương trình 
Nhập vào 2 số n và S từ bàn phím 
e Cho biết nếu người thứ nhất là người đếm 1 thì người còn lại cuối cùng trong vòng 
tròn là người thứ mấy 
e Cho biết nếu người còn lại cuối cùng trong vòng tròn là người thứ k thì người đếm 1 là 
người nào?. 
Giải quyết hai yêu cầu trên trong trường hợp: đầu tiên trò chơi được đếm theo chiều kim đồng 
hồ, khi có một người bị ra khỏi cuộc chơi thì vẫn là người kế tiếp đếm 1 nhưng quá trình đếm 


ngược lại (tức là ngược chiều kim đồng hò) 
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SS, NGĂN XÉP VÀ HÀNG ĐỢI 


5.1. NGĂN XÉP (STACK) 


Ngăn xếp là một kiểu danh sách được trang bị hai phép toán bỗ sung một phần tử vào cuối 
danh sách và loại bỏ một phần tử cũng ở cuối danh sách. 

Có thê hình dung ngăn xếp như hình ảnh một chồng đĩa, đĩa nào được đặt vào chồng Sau cùng 
sẽ nằm trên tất cả các đĩa khác và sẽ được lấy ra đầu tiên. Vì nguyên tắc "vào sau ra trước" đó, 
Stack còn có tên gọi là danh sách kiểu LIFO (Last In First Out) và vi trí cuối danh sách được 


gọi là đỉnh (Top) của Stack. 


5.1.1. Mô tả Stack bằng mảng 

Khi mô tả Stack bằng mảng: 

Việc bô sung một phần tử vào Stack tương đương với việc thêm một phần tử vào cuối mảng. 
Việc loại bỏ một phần tử khỏi Stack tương đương với việc loại bỏ một phần tử ở cuối mảng. 
Stack bị tràn khi bô sung vào mảng đã đầy 

Stack là rỗng khi số phần tử thực sự đang chứa trong mảng = 0. 


program StackByArray ; 

const 
max = 10000; 

var 
Stack: array[1..max] of Integer; 
Last: Integer; 


procedure StackInit; {Khói tạo Stack rỗng) 
begin 

Last := 0; 
end; 


procedure Push(V: Integer); {Dây một giá trị V vào Stack} 
begin 
if Last = max then WriteLn ('Stack is full') (Nếu Stack đã dày thì không đây được thêm vào nữa} 
else 
begin 
Inc(Last); Stack[Last] := V; (Nếu không thì thêm một phần tử vào cuối mång} 
end; 
end; 


function Pop: Integer; (Lấy một giá trị ra khỏi Stack, trả về trong kết quả hàm) 
begin 
if Last = 0 then Writeln('Stack is empty') {Stack đang rỗng thì không láy được} 
else 
begin 
Pop := Stack[Last]; Dec(Last); (Lấy phẩn tử cuối ra khỏi mảng) 
end; 
end; 


begin 


StackInit; 
<Test>; (Đua một vài lệnh để kiểm tra hoạt động của Stack} 
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end. 
Khi cài đặt bằng mảng, tuy các thao tác đối với Stack viết hết sức đơn giản nhưng ở đây ta 


vẫn chia thành các chương trình con, mỗi chương trình con mô tả một thao tác, để từ đó về 
sau, ta chỉ cân biệt răng chương trình của ta có một câu trúc Stack, còn ta mô phỏng cụ thê 
như thê nào thì không cân phải quan tâm nữa, và khi cài đặt Stack băng các câu trúc dữ liệu 


khác, chỉ cần sửa lại các thủ tục StackInit, Push và Pop mà thôi. 


5.1.2. Mô tả Stack bằng danh sách nối đơn kiểu LIFO 


Khi cài đặt Stack bằng danh sách nối đơn kiểu LIFO, thì Stack bị tràn khi vùng không gian 
nhớ dùng cho các biến động không còn đủ để thêm một phần tử mới. Tuy nhiên, việc kiểm tra 
điều này rất khó bởi nó phụ thuộc vào máy tính và ngôn ngữ lập trình. Ví dụ như đối với 
Turbo Pascal, khi Heap còn trống 80 Bytes thì cũng chỉ đủ chỗ cho 10 biến, mỗi biến 6 Bytes 
mà thôi. Mặt khác, không gian bộ nhớ dùng cho các biến động thường rất lớn nên cài đặt dưới 
đây ta bỏ qua việc kiểm tra Stack tràn. 


program StackByLinkedList; 
type 
PNode = ^TNode; {Con trỏ tới một nút của danh sách} 
TNode = record (Cấu trúc một nút của danh sách) 
Value: Integer; 
Link: PNode; 
end; 
var 
Last: PNode; {Con trỏ đỉnh Stack} 


procedure StackInit; {Khói tạo Stack rỗng) 
begin 

Last := nil; 
end; 


procedure Push(V: Integer); (Đây giá trị V vào Stack e thêm nút mới chúa V và nối nút đó vào danh sách} 
var 
P: PNode; 
begin 
New(P); P^.Value := V; {Tạo ra môt nút mới} 
P^.Link := Last; Last := P; {Móc nút đó vào danh sách} 
end; 


function Pop: Integer; (Lấy một giá trị ra khỏi Stack, trả về trong kết quả hàm) 


var 
P: PNode; 
begin 
if Last = nil then WriteLn ('Stack is empty') 
else 
begin 
Pop := Last^.Value; {Gán kết quả hàm} 
P := Last^.Link; (Gin lại nút tiếp theo last^ (nút được đẩy vào danh sách trước nút Last^)} 
Dispose (Last); Last := P; (Giải phóng bộ nhớ cấp cho Lost", cập nhật lại Last mới} 
end; 
end; 
begin 
StackInit; 


<Test>; (Đua một vài lệnh để kiểm tra hoạt động của Stack} 
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end. 


5.2. HÀNG ĐỢI (QUEUE) 


Hàng đợi là một kiểu danh sách được trang bị hai phép toán bô sung một phần tử vào cuối 
danh sách (Rear) và loại bỏ một phần tử ở đầu danh sách (Front). 

Có thê hình dung hàng đợi như một đoàn người xếp hàng mua vé: Người nào xếp hàng trước 
sẽ được mua vé trước. Vì nguyên tắc "vào trước ra trước" đó, Queue còn có tên gọi là danh 


sách kiểu FIFO (First In First Out). 


5.2.1. Mô tả Queue bằng mảng 


Khi mô tả Queue bằng mảng, ta có hai chỉ số First và Last, First lưu chỉ số phần tử đầu Queue 
còn Last lưu chỉ số cuối Queue, khởi tạo Queue rỗng: First := 1 và Last := 0; 
Đề thêm một phần tử vào Queue, ta tăng Last lên 1 và đưa giá trị đó vào phần tử thứ Last. 
Đề loại một phần tử khỏi Queue, ta lấy giá trị ở vị trí First và tăng First lên 1. 
Khi Last tăng lên hết khoảng chỉ số của mảng thì mảng đã đầy, không thể đây thêm phần tử 
vào nữa. 
Khi First > Last thì tức là Queue đang rỗng 
Như vậy chỉ một phần của mảng từ vị trí First tới Last được sử dụng làm Queue. 
program QueueByÀrray ; 
const 
max = 10000; 
var 


Queue: array[1..max] of Integer; 
First, Last: Integer; 


procedure QueueInit; (Khởi tạo một hàng đợi rỗng) 
begin 

First := 1; Last := 0; 
end; 


procedure Push(V: Integer); (Đây V vào hàng đợi} 


begin 
if Last = max then WriteLn ('0verflow') 
else 
begin 
Inc (Last) ; 
Queue[last] := V; 
end; 
end; 


function Pop: Integer; (Lấy một giá trị khỏi hàng đợi, trả về trong kết quả hàm) 
begin 
if First > Last then WriteLn ('Queue is Empty ') 
else 
begin 
Pop := Queue [First]; 
Inc (First); 
end; 
end; 


begin 
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QueueTnit; 
<Test>; (Đua một vài lệnh để kiểm tra hoạt động của Queue} 
end. 
Xem lại chương trình cài đặt Stack bằng một mảng kích thước tôi đa 10000 phần tử, ta thấy 


rằng nếu như ta làm 6000 lần Push rồi 6000 lần Pop rồi lại 6000 lần Push thì vẫn không có 
ván đề gì xảy ra. Lý do là vì chỉ số Last lưu đỉnh của Stack sẽ được tăng lên 6000 rồi lại giảm 
đến 0 rồi lại tăng trở lại lên 6000. Nhưng đối với cách cài đặt Queue như trên thì sẽ gặp thông 
báo lỗi tràn mảng, bởi mỗi lần Push, chỉ số cuối hàng đợi Last cũng tăng lên và không bao giờ 
bị giảm đi cả. Đó chính là nhược điểm mà ta nói tới khi cài đặt: Chỉ có các phần tử từ vi trí 
First tới Last là thuộc Queue, các phần tử từ vi trí 1 tới First - 1 là vô nghĩa. 

Đề khắc phục điều này, ta mô tả Queue bằng một danh sách vòng (biểu diễn bằng mảng hoặc 
cấu trúc liên kết), coi như các phần tử của mảng được xếp quanh vòng theo một hướng nào đó. 
Các phần tử nằm trên phần cung tròn từ vị trí First tới vị trí Last là các phần tử của Queue. Có 
thêm một biến n lưu số phần tử trong Queue. Việc thêm một phần tử vào Queue tương đương 
với việc ta dịch chỉ số Last theo vòng một vi trí rồi đặt giá trị mới vào đó. Việc loại bỏ một 
phần tử trong Queue tương đương với việc lấy ra phần tử tại vị trí First rồi dịch chỉ số First 


theo vòng. 


Hình 12: Dùng danh sách vòng mô tả Queue 


Lưu ý là trong thao tác Push và Pop phải kiểm tra Queue tràn hay Queue cạn nên phải cập 
nhật lại biến n. (Ở đây dùng thêm biến n cho dé hiểu còn trên thực tế chỉ cần hai biến First và 
Last là ta có thê kiểm tra được Queue tràn hay cạn rồi) 


program QueueByC1ist ; 

const 
max = 10000; 

Var 
Queue: array[0..max - 1] of Integer; 
i, n, First, Last: Integer; 


procedure QueueTnit; {Khói tạo Queue rỗng] 
begin 

First := 0; Last := max - 1; n := 0; 
end; 


procedure Push (V: Integer); (Đẩy giá tri V vào Queue} 
begin 

if n = max then WriteLn('Queue is Full') 

else 


Lê Minh Hoàng 


séi 62 wën Chuyên đề 


begin 
Last := (Last + 1) mod max; {Last chạy theo vòng tròn} 
Queue[last] := V; 
Tnc (n) ; 
end; 
end; 


function Pop: Integer; (Lấy một phần tủ khỏi Queue, trả về trong kết quả hàm) 
begin 
if n = 0 then WriteLn('Queue is Empty') 
else 
begin 
Pop := Queue[First]; 
First := (First + 1) mod max; {First chạy theo vòng tròn} 
Dec (n) ; 
end; 
end; 


begin 

QueueTnit; 

<Test>; (Đua một vài lệnh để kiểm tra hoạt động của Queue} 
end. 


5.2.2. Mô tả Queue bằng danh sách nối đơn kiểu FIFO 


Tương tự như cài đặt Stack bằng danh sách nối đơn kiểu LIFO, ta cũng không kiểm tra Queue 
tràn trong trường hợp mô tả Queue bằng danh sách nối đơn kiểu FIFO. 


program QueueBy1LinkedList; 
type 
ENode = ^TNode; (Kiểu con trỏ tới một nút của danh sách} 
TNode = record (Cấu trúc một nút của danh sách) 
Value: Integer; 
Link: PNode; 
end; 
var 
First, Last: PNode; (Hai con trỏ tói nút đầu và nút cuối của danh sách} 


procedure QueueTnit; (Khởi tạo Queue rỗng) 
begin 

First := nil; 
end; 


procedure Push(V: Integer); (Đây giá trị V vào Queue} 
var 
P: PNode; 
begin 
New(P); P^.Value := V; {Tạo ra môt nút mới} 
P^.Link := nil; 
if First = nil then First := P {Móc nút đó vào danh sách} 
else Last^.Link := P; 
Last := P; {Nút mới trở thành nút cuối, cập nhật lại con trỏ Last} 
end; 


function Pop: Integer; (Lấy giá trị khỏi Queue, trả về trong kết quả hàm) 
var 
P: PNode; 
begin 
if First = nil then WriteLn('Queue is empty') 
else 
begin 
Pop := First^.Value; {Gán kết quả hàm} 
P := First^.Link; (Giữ lại nút tiếp theo First^ (Nút được đẩy vào danh sách ngay sau First^)} 
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Dispose (First); First := P; (Giải phóng bộ nhớ cấp cho First^, cập nhật lại First mới} 
end; 
end; 


begin 
QueueTnit; 


<Test>; (Đua môt vài lệnh để kiểm tra hoạt động của Queue} 
end. 


Bài tập 

Bài 1. 

Tìm hiểu cơ chế xếp chồng của thủ tục đệ quy, phương pháp dùng ngăn xếp đề khử đệ quy. 
Viết chương trình mô tả cách đổi cơ số từ hệ thập phân sang hệ cơ số R dùng ngăn xếp 

Bài 3 


Hình 13 là cơ cầu đường tàu tại một ga xe lửa 


Hình 13: Di chuyển toa tàu 


Ban đầu ở đường ray A chứa các toa tàu đánh số từ 1 tới n theo thứ tự từ trái qua phải, người 
ta muốn chuyển các toa đó sang đường ray C để được một thứ tự mới là một hoán vị của (l, 
2,..., n) theo quy tắc: chỉ được đưa các toa tàu chạy theo đường ray theo hướng mũi tên, có 
thể dùng đoạn đường ray B để chứa tạm các toa tàu trong quá trình đi chuyền. 

a) Hãy nhập vào hoán vị cần có, cho biết có phương án chuyên hay không, và nếu có hãy đưa 
ra cách chuyền: 

Ví dụ: n = 4; Thứ tự cần có (1, 4, 3, 2) 


1)A -> C; 2)A => B; 3)A > B; đ)A > C; 5)B > C; 6)B > C 
b) Những hoán vị nào của thứ tự các toa là có thê tạo thành trên đoạn đường ray C với luật di 


chuyền như trên 
Bài 4 


Tương tự như bài 3, nhưng với sơ đồ đường ray sau: 


Hình 14: Di chuyển toa tàu (2) 
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$6. CÂY (TREE) 


6.1. ĐỊNH NGHĨA 


Cấu trúc dữ liệu trừu tượng ta quan tâm tới trong mục này là cấu trúc cây. Cây là một cấu trúc 
dữ liệu gồm một tập hữu hạn các nút, giữa các nút có một quan hệ phân cấp gọi là quan hệ 
"cha - con”. Có một nút đặc biệt gọi là góc (root). 
Có thể định nghĩa cây bằng các đệ quy như sau: 

e ` Mỗi nút là một cây, nút đó cũng là gốc của cây ấy 

e Nếu nlà một nút và nı, nạ, ..., Nk lần lượt là sốc của các cây Tı, T›,..., Tk; các cây 

này đôi một không có nút chung. Thì nếu cho nút n trở thành cha của các nút nụ, nạ, ..., 

nụ ta sẽ được một cây mới T. Cây này có nút n là gốc còn các cây Tı, Ta, ..., Tk trở 
thành các cây con (subtree) của gốc. 


Đề tiện, người ta còn cho phép tồn tại một cây không có nút nào mà ta gọi là cây rồng (null 


La 


Hình 15: Cây 


tree). 


Xét cây trong Hình 15: 


A là cha của B, C, D, còn G, H, I là con của D 

Số các con của một nút được gọi là cấp của nút đó, ví dụ cấp của A là 3, cấp của B là 2, cấp 
của C là 0. 

Nút có cấp bằng 0 được gọi là nút lá (leaf) hay nút tận cùng. Ví dụ như ở trên, các nút E, F, C, 
G, J, K và I là các nút là. Những nút không phải là lá được gọi là nút nhánh (branch) 

Cấp cao nhất của một nút trên cây gọi là cấp của cây đó, cây ở hình trên là cây cấp 3. 

Gốc của cây người ta gán cho số mức là 1, nếu nút cha có mức là i thì nút con sẽ có mức là i + 


1. Mức của cây trong Hình 15 được chỉ ra trong Hình 16: 
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Hình 16: Mức của các nút trên cây 


Chiều cao (height) hay chiều sâu (depth) của một cây là số mức lớn nhất của nút có trên cây 
đó. Cây ở trên có chiều cao là 4 
Một tập hợp các cây phân biệt được gọi là rừng (forest), một cây cũng là một rừng. Nếu bỏ 
nút gốc trên cây thì sẽ tạo thành một rừng các cây con. 
Vị dụ: 
e Muc lục của một cuốn sách với phần, chương, bài, mục v.v... có cầu trúc của cây 
e Cấu trúc thư mục trên đĩa cũng có cấu trúc cây, thư mục gốc có thể coi là gốc của cây 
đó với các cây con là các thư mục con và tệp nằm trên thư mục gốc. 
e Gia phả của một họ tộc cũng có cấu trúc cây. 
e ` Một biểu thức số học gồm các phép toán cộng, trừ, nhân, chia cũng có thê lưu trữ 
trong một cây mà các toán hạng được lưu trữ ở các nút lá, các toán tử được lưu trữ ở 


các nút nhánh, môi nhánh là một biêu thức con. 


(A/B+C)* (D-E) 


Hình 17: Cây biểu diễn biểu thức 
6.2. CÂY NHỊ PHÂN (BINARY TREE) 
Cây nhị phân là một dang quan trọng của cấu trúc cây. Nó có đặc điểm là mọi nút trên cây chỉ 
có tối đa hai nhánh con. Với một nút thì người ta cũng phân biệt cây con trái và cây con phải 
của nút đó. Cây nhị phân là cây có tính đến thứ tự của các nhánh con. 


Cần chú ý tới một só dạng đặc biệt của cây nhị phân 
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Các cây nhị phân trong Hình 18Error! Reference source not found. được gọi là cây nhị 
phân suy biến (degenerate binary tree), các nút không phải là lá chỉ có một nhánh con. Cây a) 


được gọi là cây lệch phải, cây b) được gọi là cây lệch trái, cây c) và d) được gọi là cây zÍc-zắc. 


Ni 


Hình 18: Các dạng cây nhị phân suy biến 
Các cây trong Hình 19 được gọi là cây nhị phân hoàn chỉnh (complete binary tree): Nếu 
chiều cao của cây là h thì mọi nút có mức < h - 1 đều có đúng 2 nút con. Còn néu mọi nút có 
mức <h - 1 đều có đúng 2 nút con như trường hợp cây f) ở trên thì cây đó được gọi là cây nhị 
phân đầy đủ (full binary tree). Cây nhị phân đầy đủ là trường hợp riêng của cây nhị phân 


hoàn chỉnh. 


AAAA 


Hình 19: Cây nhị phân hoàn chỉnh và cây nhị phân đầy đủ 
Ta có thể thấy ngay những tính chất sau bằng phép chứng minh quy nạp: 
Trong các cây nhị phân có cùng số lượng nút như nhau thì cây nhị phân suy biến có chiều cao 
lớn nhất, còn cây nhị phân hoàn chỉnh thì có chiều cao nhỏ nhất. 
Số lượng tối đa các nút trên mức i của cây nhị phân là 2”, tối thiểu là 1 (i > 1). 
Số lượng tối đa các nút trên một cây nhị phân có chiều cao h là 2-1, tối thiểu là h (h > 1). 


Cây nhị phân hoàn chỉnh, không đầy đủ, có n nút thì chiều cao của nó là h = [logz(n + 1)] + 1. 
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Cây nhị phân đầy đủ có n nút thì chiều cao của nó là h = logz(n + 1) 


6.3. BIÉU DIEN CÂY NHỊ PHÂN 


6.3.1. Biểu diễn bằng mảng 
Nếu có một cây nhị phân đầy đủ, ta có thể dễ dàng đánh số cho các nút trên cây đó theo thứ tự 
lần lượt từ mức 1 trở đi, hết mức này đến mức khác và từ trái sang phải đối với các nút ở mỗi 


mức. 


4 5 6 7 
Hình 20: Đánh số các nút của cây nhị phân đầy đủ để biểu diễn bằng mảng 

Với cách đánh số này, con của nút thứ i sẽ là các nút thứ 2i và 2i + 1. Cha của nút thứ j là nút j 

div 2. Từ đó có thê lưu trữ cây bằng một mảng T, nút thứ i của cây được lưu trữ bằng 

phần tử TDL 


Với cây nhị phân đầy đủ ở Hình 20 thì khi lưu trữ bằng mảng, ta sẽ được mảng như sau: 


1 2 3 4 5 6 7 
[Alslzlel|s[r |e] 


Trong trường hợp cây nhị phân không đầy đủ, ta có thê thêm vào một số nút giả để được cây 


nhị phân đầy đủ, và gán những giá trị đặc biệt cho những phần tử trong mảng T tương ứng với 
những nút này. Hoặc dùng thêm một mảng phụ để đánh dấu những nút nào là nút giả tự ta 
thêm vào. Chính vì lý do này nên với cây nhị phân không đầy đủ, ta sẽ gặp phải sự lãng phí 
bộ nhớ vì có thể sẽ phải thêm rất nhiều nút giả vào thì mới được cây nhị phân đầy đủ. 


Ví dụ với cây lệch trái, ta phải dùng một mảng 31 phần tử để lưu cây nhị phân chỉ gồm 5 nút 
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Hình 21: Nhược điểm của phương pháp biểu diễn cây bằng mảng 


6.3.2. Biểu diễn bằng cấu trúc liên kết. 
Khi biểu diễn cây nhị phân bằng cấu trúc liên kết, mỗi nút của cây là một bản ghi (record) 
gồm 3 trường: 
e ` Trường Info: Chúa giá trị lưu tại nút đó 
e Trường Left: Chúa liên kết (con trỏ) tới nút con trái, tức là chứa một thông tin đủ để 
biết nút con trái của nút đó là nút nào, trong trường hợp không có nút con trái, trường 
này được gán một giá trị đặc biệt. 
e Trường Right: Chứa liên kết (con trỏ) tới nút con phải, tức là chứa một thông tin đủ để 
biết nút con phải của nút đó là nút nào, trong trường hợp không có nút con phải, 


trường này được gán một giá trị đặc biệt. 


Liên két trái ` Liên kếtphải 
Hình 22: Cấu trúc nút của cây nhị phân 


Đôi với cây ta chỉ cân phải quan tâm giữ lại nút gôc, bởi từ nút gôc, đi theo các hướng liên kêt 


Left, Right ta có thể duyệt mọi nút khác. 
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Hình 23: Biểu diễn cây bằng cấu trúc liên kết 


6.4. PHÉP DUYỆT CAN NHỊ PHÂN 

Phép xử lý các nút trên cây mà ta gọi chung là phép thăm (Visit) các nút một cách hệ thống 
sao cho mỗi nút chỉ được thăm một lần gọi là phép duyệt cây. 

Giá sử rằng néu như một nút không có nút con trái (hoặc nút con phải) thì liên kết Left (Right) 
của nút đó được liên kết thắng tới một nút đặc biệt mà ta gọi là NIL (hay NULL), nếu cây 
rỗng thì nút gốc của cây đó cũng được gán bằng NIL. Khi đó có ba cách duyệt cây hay được 


sử dụng: 


6.4.1. Duyệt theo thứ tự trước (preorder traversal) 
Trong phép duyệt theo thứ tự trước thì giá trị trong mỗi nút bất kỳ sẽ được liệt kê trước giá trị 
lưu trong hai nút con của nó, có thể mô tả bằng thủ tục đệ quy sau: 
procedure Visit(N); (Duyệt nhánh cây nhận N là nút gốc của nhánh đó} 
begin 
if N + nil then 
begin 
<0utput trường Info của nút N> 
Visit(Nút con trái của N); 
Visit(Nút con phải của N); 
end; 
end; 
Quá trình duyệt theo thứ tự trước bắt đâu băng lời gọi Visit(nút gôc). 


Như cây ở Hình 23, nếu ta duyệt theo thứ tự trước thì các giá trị sẽ lần lượt được liệt kê theo 
thứ tự: 
ABDHIEJCFKGL 
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6.4.2. Duyệt theo thứ tự giữa (inorder traversal) 

Trong phép duyệt theo thứ tự giữa thì giá trị trong mỗi nút bất kỳ sẽ được liệt kê sau giá trị 
lưu ở nút con trái và được liệt kê trước giá trị lưu ở nút con phải của nút đó, có thể mô tả bằng 
thủ tục đệ quy sau: 


procedure Visit(N); (Duyệt nhánh cây nhận N là nút gốc của nhánh đó] 
begin 
if N nil then 
begin 
Visit(Nút con trái của N); 
<0utput trường Info của nút N> 
Visit(Nút con phải của N); 
end; 
end; 


Quá trình duyệt theo thứ tự giữa cũng bắt đầu bằng lời gọi Visit(nút gốc). 
Như cây ở Hình 23, nếu ta duyệt theo thứ tự giữa thì các giá trị sẽ lần lượt được liệt kê theo 
thứ tự: 

HDIBEJAKFCGL 


6.4.3. Duyệt theo thứ tự sau (postorder traversal) 
Trong phép duyệt theo thứ tự sau thì giá trị trong mỗi nút bất kỳ sẽ được liệt kê sau giá trị lưu 


ở hai nút con của nút đó, có thê mô tả băng thủ tục đệ quy sau: 


procedure Visit(N); (Duyệt nhánh cây nhận N là nút gốc của nhánh đó] 
begin 
if N + nil then 
begin 
Visit(Nút con trái của N); 
Visit(Nút con phải của N); 
<0utput trường Info của nút N> 
end; 
end; 


Quá trình duyệt theo thứ tự sau cũng bắt đầu bằng lời gọi Visit(nút gốc). 
Cũng với cây ở Hình 23, nếu ta duyệt theo thứ tự sau thì các giá trị sẽ lần lượt được liệt kê 
theo thứ tự: 

HIDJIEBKFLGCA 


6.5. CÂY K_PHÂN 


Cây K phân là một dạng cấu trúc cây mà mỗi nút trên cây có tối đa K nút con (có tính đến 


thứ tự của các nút con). 


6.5.1. Biểu diễn cây K_phân bằng mảng 

Cũng tương tự như việc biêu diễn cây nhị phân, người ta có thể thêm vào cây K_phân một số 
nút giả để cho mỗi nút nhánh của cây K_phân đều có đúng K nút con, các nút con được xếp 
thứ tự từ nút con thứ nhất tới nút con thứ K, sau đó đánh số các nút trên cây K_phân bắt đầu 


từ 0 trở đi, bắt đầu từ mức 1, hết mức này đến mức khác và từ "trái qua phải" ở mỗi mức. 
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Theo cách đánh số này, nút con thứ j của nút i là: i * K + j. Nút cha của nút x là nút (x - 1) div 
K. Ta có thê dùng một mảng T đánh số từ 0 để lưu các giá trị trên các nút: Giá tri tại nút thứ i 


được lưu trữ ở phần tử T[i]. 


Hình 24: Đánh số các nút của cây 3_phân để biểu diễn bằng mảng 


6.5.2. Biểu diễn cây K_phân bằng cấu trúc liên kết 

Khi biểu diễn cây K phân bằng cấu trúc liên kết, mỗi nút của cây là một bản ghi (record) gồm 
hai trường: 

Trường Info: Chứa giá trị lưu trong nút đó. 

Trường Links: Là một mảng gồm K phần tử, phần tử thứ ¡ chứa liên kết (con trỏ) tới nút con 
thứ 1, trong trường hợp không có nút con thứ i thì Links[i] được gán một giá trị đặc biệt. 

Đối với cây K_ phân, ta cũng chỉ cần giữ lại nút gốc, bởi từ nút gốc, đi theo các hướng liên 
kết có thể đi tới mọi nút khác. 

6.6. CÂY TỎNG QUÁT 


Trong thực té, có một số ứng dụng đòi hỏi một cấu trúc dữ liệu dạng cây nhưng không có ràng 
buộc gì về số con của một nút trên cây, ví dụ như cầu trúc thư mục trên đĩa hay hệ thống đề 
mục của một cuốn sách. Khi đó, ta phải tìm cách mô tả một cách khoa học cấu trúc dữ liệu 
dạng cây tổng quát. Cũng như trường hợp cây nhị phân, người ta thường biểu diễn cây tổng 


quát bằng hai cách: Lưu trữ kế tiếp bằng mảng và lưu trữ bằng cấu trúc liên kết. 


6.6.1. Biểu diễn cây tổng quát bằng mảng 

Đề lưu trữ cây tổng quát bằng mảng, trước hết, ta đánh số các nút trên cây bắt đầu từ 1 theo 
một thứ tự tuỳ ý. Giả sử cây có n nút thì ta sử dụng: 

Một mảng Info[ 1..n], trong đó Info[i] là giá trị lưu trong nút thứ i. 

Một mảng Children được chia làm n đoạn, đoạn thứ i gồm một dãy liên tiếp các phần tử là chỉ 


sô các nút con của nút i. Như vậy mảng Children sẽ chứa tât cả chỉ sô của mọi nút con trên 
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cây (ngoại trừ nút gốc) nên nó sẽ gồm n - 1 phần tử, lưu ý rằng khi chia mảng Children làm n 
đoạn thì sẽ có những đoạn rỗng (tương ứng với danh sách các nút con của một nút lá) 

Một mảng Head[I..n + 1], để đánh dấu vị trí cắt đoạn trong mảng Children: Head[i] là vị trí 
đứng liền trước đoạn thứ i, hay nói cách khác: Đoạn con tính từ chỉ số Head[i] + 1 đến Head[i] 
của mảng Children chứa chỉ số các nút con của nút thứ i. Khi Head[i] = Head[i+1] có nghĩa 
là đoạn thứ i rỗng. Quy ước: Head[n+l] =n - 1. 

Giữ lại chỉ số của nút gốc. 


Ví dụ: 


Info: 


1 Ấ 5 6 7 8 9 10 11 
——— `". Age eg) 
1() F 9 (A) 
Head: [olas|s[s|s|s[s|s[lalslnln[n] 
1 2 3 4 5 6 7 8 9 10 11 12 13 


Hình 25: Biểu diễn cây tổng quát bằng mảng 


6.6.2. Lưu trữ cây tổng quát bằng cấu trúc liên kết 

Khi lưu trữ cây tông quát bằng cấu trúc liên kết, mỗi nút là một bản ghi (record) gồm ba 
trường: 

Trường Info: Chứa giá trị lưu trong nút đó. 

Trường FirstChild: Chứa liên kết (con trỏ) tới nút con đầu tiên của nút đó (con cả), trong 
trường hợp là nút lá (không có nút con), trường này được gán một giá trị đặc biệt. 

Trường Sibling: Chứa liên kết (con trỏ) tới nút em kế cận bên phải (nút cùng cha với nút đang 
xét, khi sắp thứ tự các con thì nút đó đứng liền sau nút đang xét). Trong trường hợp không có 


nút em kế cận bên phải, trường này được gán một giá trị đặc biệt. 
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Sibling 


FirstChild 


Hình 26: Cấu trúc nút của cây tông quát 
Dễ thấy được tính đúng dän của phương pháp biểu diễn, bởi từ một nút N bát kỳ, ta có thể đi 
theo liên kết FirstChild để đến nút con cả, nút này chính là chốt của một danh sách nối đơn 
các nút con của nút N: từ nút con cả, đi theo liên kết Sibling, ta có thể duyệt tất cả các nút con 
của nút Ñ. 
Bài tập 
Bài 1 
Viết chương trình mô tả cây nhị phân dùng cấu trúc liên kết, mỗi nút chứa một số nguyên, và 
viết các thủ tục duyệt trước, giữa, sau. 
Bài 2 
Chứng minh rằng nếu cây nhị phân có x nút lá và y nút cấp 2 thì x= y + 1 
Bài 3 
Chứng minh rằng nếu ta biết dãy các nút được thăm của một cây nhị phân khi duyệt theo thứ 
tự trước và thứ tự giữa thì có thể dựng được cây nhị phân đó. Điều này con đúng nữa không 
đối với thứ tự trước và thứ tự sau? Với thứ tự giữa và thứ tự sau. 
Bài 4 


Viết các thủ tục duyệt trước, giữa, sau không đệ quy. 
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§7. KÝ PHÁP TIÊN TÓ, TRUNG TÓ VÀ HẬU TO 


7.1. BIÉU THÚC DƯỚI DẠNG CÂY NHỊ PHÂN 


Chúng ta có thể biểu diễn các biểu thức số học gồm các phép toán cộng, trừ, nhân, chia bằng 
một cây nhị phân, trong đó các nút lá biểu thị các hằng hay các biến (các toán hạng), các nút 
không phải là lá biểu thị các toán tử (phép toán số học chẳng hạn). Mỗi phép toán trong một 
nút sẽ tác động lên hai biểu thức con nằm ở cây con bên trái và cây con bên phải của nút đó. 


Ví dụ: Cây biểu diễn biểu thức (6 / 2 + 3) * (7 - 4) 


Hình 27: Biểu thức dưới dạng cây nhị phân 
7.2. CÁC KÝ PHÁP CHO CÙNG MỘT BIÉU THÚC 
Với cây nhị phân biĉu diễn biĉu thức trong Hình 27, 

e ` Nếu duyệt theo thứ tự trước, ta sẽ được * + /6 2 3 - 7 4, đây là dạng tiền tố (prefix) 
của biểu thức. Trong ký pháp này, toán tử được viết trước hai toán hạng tương ứng, 
người ta còn gọi ký pháp này là ký pháp Ba lan. 

e ` Nếu duyệt theo thứ tự giữa, ta sẽ được 6 /2 + 3 * 7 - 4. Ký pháp này hơi mập mờ vì 
thiếu dấu ngoặc. Nếu thêm vào thủ tục duyệt inorder việc bô sung các căp dáu ngoặc 
vào mỗi biểu thức con sẽ thu được biểu thức (((6 / 2) + 3) * (7 - 4)). Ký pháp này gọi 
là dạng trung tố (infix) của một biểu thức (Thực ra chỉ cần thêm các dấu ngoặc đủ dë 
tránh sự mập mờ mà thôi, không nhất thiết phải thêm vào đầy đủ các cặp dấu ngoặc). 

e ` Nếu duyệt theo thứ tự sau, ta sẽ được 6 2 / 3 + 7 4 - *, đây là dạng hậu tố (postfix) 
của biểu thức. Trong ký pháp này toán tử được viết sau hai toán hạng, người ta còn gọi 
ký pháp này là ký pháp nghịch đảo Balan (Reverse Polish Notation - RPN) 

Chỉ có dạng trung tố mới cần có dấu ngoặc, dạng tiền tố và hậu tố không cần phải có dấu 


ngoặc. 
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7.3. CÁCH TÍNH GIÁ TRỊ BIÉU THỨC 


Có một vấn đề cần lưu ý là khi máy tính giá trị một biêu thức số học gồm các toán tử hai ngôi 
(toán tử gồm hai toán hạng như +, -, *, /) thì máy chỉ thực hiện được phép toán đó với hai toán 
hạng. Nếu biću thức phức tạp thì máy phải chia nhỏ và tính riêng từng biểu thức trung gian, 
sau đó mới lấy giá trị tìm được để tính tiếp. Ví dụ như biểu thức 1 + 2 + 4 máy sẽ phải tính I 
+2 trước được kết quả là 3 sau đó mới đem 3 cộng với 4 chứ không thê thực hiện phép cộng 
một lúc ba số được. 
Khi lưu trữ biểu thức dưới dạng cây nhị phân thì ta có thể coi mỗi nhánh con của cây đó mô 
tả một biểu thức trung gian mà máy cần tính khi xử lý biểu thức lớn. Như ví dụ trên, máy sẽ 
phải tính hai biểu thức 6 / 2 + 3 và 7 - 4 trước khi làm phép tính nhân cuối cùng. Đề tính biểu 
thức 6 /2 + 3 thì máy lại phải tính biéu thức 6 / 2 trước khi đem cộng với 3. 
Vậy đề tính một biểu thức lưu trữ trong một nhánh cây nhị phân gốc ở nút n, máy sẽ tính gần 
giống như hàm đệ quy sau: 
function Calculate(n): Value; {Tính biểu thúc con trong nhánh cây gốc n} 
begin 
if <Nút n chứa không phải là một toán tử> then 
Calculate := <Giá trị chứa trong nút n> 
else (Nút n chứa một toán tử R} 
begin 

x := Calculate(nút con trái của n); 

y := Calculate(nút con phải của n); 

Calculate := x R y; 


end; 
end. 


(Trong trường hợp lập trình trên các hệ thống song song, việc tính giá trị biểu thức ở cây con 
trái và cây con phải có thể tién hành đồng thời làm giảm đáng ké thời gian tính toán biểu 
thực). 

Đề ý rằng khi tính toán biểu thức, máy sẽ phải quan tâm tới việc tính biểu thức ở hai nhánh 
con trước, rồi mới xét đến toán tử ở nút gốc. Điều đó làm ta nghĩ tới phép cây theo thứ tự sau 
và ký pháp hậu tố. Trong những năm đầu 1950, nhà lô-gic học người Balan Jan Lukasiewicz 
đã chứng minh rằng biểu thức hậu tố không cần phải có dấu ngoặc vẫn có thể tính được một 
cách đúng đắn bằng cách đọc lần lượt biểu thức từ trái qua phải và dùng một Stack để lưu 


các kết quả trung gian: 


Bước 1: Khởi động một Stack rỗng 

Bước 2: Đọc lần lượt các phần tử của biểu thức RPN từ trái qua phải (phần tử này có thê là 
hằng, biến hay toán tử) với mỗi phần tử đó, ta kiểm tra: 

Nếu phần tử này là một toán hạng thì đây giá trị của nó vào Stack. 

Nếu phần tử này là một toán tử ®, ta lấy từ Stack ra hai giá trị (y và x) sau đó áp dụng toán tử 


® đó vào hai giá trị vừa lấy ra, đây kết quả tìm được (x ® y) vào Stack (ra hai vào một). 
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Bước 3: Sau khi kết thúc bước 2 thì toàn bộ biểu thức đã được đọc xong, trong Stack chỉ còn 


duy nhất một phần tử, phần tử đó chính là giá trị của biểu thức. 


Ví dụ: Tính biểu thức 10 2 /3 + 7 4 - * (tương ứng với biểu thức (10/2 + 3) * (7 - 4) 


Đọc | Xử lý Stack 
10 | Đây vào Stack 10 

2 Đây vào Stack 10, 2 
/ | Lấy 2 và 10 khỏi Stack, Tính được 10 / 2 = 5, đây 5 vào Stack | 5 

3 Đẩy vào Stack 5,3 

+ | Lấy 3 và 5 khỏi Stack, tính được 5 + 3 = 8, đây 8 vào Stack | 8 

7 Đẩy vào Stack 8, 7 

4 Đẩy vào Stack 8, 7T, 4 
- | Láy 4 và 7 khỏi Stack, tính được 7 - 4 = 3, đẩy 3 vào Stack | 8, 3 

* Láy 3 và 8 khỏi Stack, tính được 8 * 3 = 24, dây 24 vào Stack | 24 


Ta được kết quả là 24 

Dưới đây ta sẽ viết một chương trình đơn giản tính giá trị biểu thức RPN. Chương trình sẽ 
nhận Input là biểu thức RPN gồm các số thực và các toán tử + - * / và cho Output là kết quả 
biểu thức đó. 

Quy định khuôn dạng bắt buộc là hai số liền nhau trong biểu thức RPN phải viết cách nhau ít 
nhất một dáu cách. Dé quá trình đọc một phần tử trong biểu thức RPN được dễ dàng hơn, sau 
bước nhập liệu, ta có thể hiệu chỉnh đôi chút biểu thức RPN về khuôn dạng dễ đọc nhất. 
Chẳng hạn như thêm và bớt một số dấu cách trong Input để mỗi phần tử (toán hạng, toán tử) 
đều cách nhau đúng một dấu cách, thêm một dấu cách vào cuối biểu thức RPN. Khi đó quá 
trình đọc lần lượt các phần tử trong biểu thức RPN có thể làm như sau: 

ae TÔ, l 

for p := 1 to Length (RPN) do {Xét các ký tų trong biêu thúc RPN tù trái qua phải} 


if RPN[p] # ' ' then T := T + RPN[p] (Nếu RPN[p] không phải dấu cách thì nỗi ký tų đó vào T} 
else {Néu RPN[p] là dấu cách thì phàn tử đang đọc đã đọc xong, tiếp theo sẽ là phàn tử khác) 


begin 

<Xử lý phần tứ T> 

T ;= '!; (Chuẩn bị đọc phần tử mới) 
end; 


Để đơn giản, chương trình không kiểm tra lỗi viết sai biểu thức RPN, việc đó chỉ là thao tác tỉ 
mỉ chứ không phức tạp lắm, chỉ cần xem lại thuật toán và cài thêm các mô-đun bắt lỗi tại mỗi 


bước. 


Ví dụ về Input / Output của chương trình: 


Enter RPN Expression: 10 2/3 + 47T-* 
102/3+47-* =24.0000 


(§N+,E+) 
program CalculateRPNExpression ; 
const 

0pt = Hier, EM GAR Halt 
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var 
T, RPN: String; 
Stack: array[1..255] of Extended; 
p, Last: Integer; 
{Các thao tác đối với Stack} 
procedure StackTnit; 
begin 
last := 0; 
end; 


procedure Push(V: Extended) ; 
begin 

Inc(Last); Stack[Last] := V; 
end; 


function Pop: Extended; 
begin 

Pop := Stack[Last]; Dec (Last); 
end; 


procedure Refine (var S: String); (Hiệu chỉnh biểu thúc RPN về khuôn dạng dễ đọc nhất) 


var 
i: Integer; 
begin 
8 :=8†''; 


for i e Length(§) - 1 downto 1 do (Thêm những dấu cách giữa toán hạng và toán tủ] 
if (S[i] in Opt) or (S[i + 1] in Opt) then 


Insert(' ', S, i +1); 


for i e Length(S) - 1 downto 1 do {Xoá những dáu cách thùa} 
if (S[i] = ' ') and (S[i +1] = ' ') then Delete(S, i + 1, 1); 


end; 


procedure Process(T: String); {Xù lý phần tủ T đọc được từ biểu thúc RPN} 


var 
x, y: Extended; 
e: Integer; 
begin 


if not (T[1] in Opt) then {T là toán hạng} 


begin 


Val(T, x, e); Push(x); (Đôi T thành số và đẩy giá trị đó vào Stack} 


end 
else {T là toán tủ] 
begin 
y := Pop; x := Pop; (Ra hai} 
case T[1] of 
AE CEA 


WE ER E 
WEE 
'/': x :=x/y; 
end; 
Push (x); {Vào môt} 
end; 
end; 
begin 
Write('Enter RPN Expression: '); ReadLn (RPN) ; 
Refine (RPN) ; 
StackInit; 
T := 1: 


for p := 1 to Length(REN) do {Xét các ký tụ của biểu thúc RPN từ trái qua phải} 
if RPN[p] <> ' ' then T := T + RPN[p] (nếu không phải dấu cách thì nói nó vào sau xâu T} 


else (Nếu gặp dấu cách) 
begin 


Process (T); {Xù lý phần tử vừa đọc xong) 
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T ;= ''; (Đặt lại T để chuẩn bị đọc phần tử mới] 
end; 
WriteIn(RPN, ' = ', Pop:0:4); {In giá trị biểu thúc RPN được lưu trong Stack} 


end. 


7.4. CHUYÊN TỪ DANG TRUNG TÔ SANG DẠNG HẬU TO 


Có thê nói rằng việc tính toán biểu thức viết bằng ký pháp nghịch đảo Balan là khoa học hơn, 
máy móc, và đơn giản hơn việc tính toán biêu thức viết bằng ký pháp trung tố. Chỉ riêng việc 
không phải xử lý dấu ngoặc đã cho ta thấy ưu điểm của ký pháp RPN. Chính vì lý do này, các 
chương trình dịch vẫn cho phép lập trình viên viết biểu thức trên ký pháp trung tố theo thói 
quen, nhưng trước khi dịch ra các lệnh máy thì tất cả các biêu thức đều được chuyền về dạng 
RPN. Vấn đề đặt ra là phải có một thuật toán chuyền biểu thức dưới dạng trung tô về dạng 
RPN một cách hiệu quả, và dưới đây ta trình bày thuật toán đó: 

Thuật toán sử dụng một Stack để chứa các toán tử và dấu ngoặc mở. Thủ tục Push(V) để đây 
một phần tử vào Stack, hàm Pop dë lấy ra một phần tử từ Stack, hàm Get đề đọc giá tri phàn 
tử nằm ở đỉnh Stack mà không láy phần tử đó ra. Ngoài ra mức độ ưu tiên của các toán tử 
được quy định bằng hàm Priority như sau: Ưu tiên cao nhất là dâu "*" và "/" với Priority là 2, 
tiếp theo là dáu "+" và "-" với Priority là 1, ưu tiên thấp nhất là dâu ngoặc mở "(" với Priority 
là 0. 


Stack := Ø; 
for <Phần tử T đọc được từ biểu thúc infix> do 
{T có thể là hằng, biến, toán tử hoặc dấu ngoặc được đọc từ biểu thức infix theo thứ tự tù trái qua phải] 
case T of 
'(': Push(T); 
d t: 
repeat 
x := Pop; 
if x # '(' then Output (x) ; 
until x= '('; 
+, EE mr, A 
begin 
while (Stack + Ø) and (Priority(T) < Priority(Get)) do Output (Pop) ; 
Push (T) ; 
end; 
else Output (T) ; 
end; 
while (Stack + Ø) do Output (Pop) ; 


Ví dụ với biểu thức trung tó (2 * 3+ 7/8) * (5 - 1) 


Đọc Xử lý Stack Output 
( Đây vào Stack ( 
2 Hiến thị ( 2 
$ phép "*" được ưu tiên hơn phần tử ở đỉnh Stack là "(", dër "*" | (* 
vào Stack 
3 Hiën thị (* 23 
+ phép "+" ưu tiên không cao hơn phân tử ở đỉnh Stack là "*", lây | (+ 231? 
ra và hiên thị "*", So sánh tiếp, thấy phép "+" được ưu tiên cao 
hơn phần tử ở đỉnh Stack là "(", đây "+" vào Stack 
7 Hiën thị D EEN 
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Đọc Xử lý Stack Output 

/ phép "/" được ưu tiên hơn phân tử ở đỉnh Stack là "+", đây "/" | (+/ 
vào Stack 

8 Biến thị DI 23*7T8 

) lây ra và hiên thị các phân tử trong Stack tới khi láy phải dấu | Ø 23*78/+ 
ngoặc mở 

* Stack dang là rỗng, đây * vào Stack * 

( Đây vào Stack Mu 

5 Biến thị H 23*18/15 

- phép "-" được ưu tiên hơn phân tử ở dinh Stack là "(", đây "-" | *{- 
vào Stack 

1 Hiến thị *(- 23*T18/151 

) Lët ra và hiên thị các phần tử ở đỉnh Stack cho tới khi láy phải | * 23*78/+51- 
dấu ngoặc mở 

Hêt Láy ra và hiên thị hết các phần tử còn lại trong Stack 23*78/+51-* 


Dưới đây là chương trình chuyền biéu thức viết ở dạng trung tô sang dạng RPN. Biểu thức 
trung tố đầu vào sẽ được hiệu chỉnh sao cho mỗi thành phần của nó được cách nhau đúng một 
dấu cách, và thêm một dấu cách vào cuối cho dễ tách các phần tử ra để xử lý. Vì Stack chỉ 
dùng để chứa các toán tử và dấu ngoặc mở nên có thể mô tả Stack dưới dạng xâu ký tự cho 
đơn giản. 

Ví dụ về Input / Output của chương trình: 


Infix: (10*3 + 7/8) * (5-1) 
Refined: (10*3+7/8)*(5-1) 
RPN: 103*78/+51-* 


program ConvertTnfixToRPN; 

const 
Opt = Kë WAR lê, e E 1/1]; 

Var 
T, Infix, Stack: String; {Stack dùng để chúa toán tử và dáu ngoặc mở nên dùng String cho tiện] 
P: Integer; 


{Các thao tác đối với Stack} 
procedure StackTnit; 
begin 
Stack := ''; 
end; 


procedure Push (V: Char); 
begin 

Stack := Stack + V; 
end; 


function Pop: Char; 


begin 
Pop := Stack [Length (Stack) ]; 
Dec (Stack[0]) ; 

end; 


function Get: Char; 
begin 

Get := Stack [Length (Stack) ] ; 
end; 


procedure Refine(var S: String); (Hiệu chinh biểu thúc trung tó về khuôn dạng dễ đọc nhật} 
var 

1: Integer; 
begin 
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§;=Z§1+ 1; 
for i := Length($) - 1 downto 1 do {Thêm những dấu cách trước và sau mỗi toán tử và dấu ngoặc] 
if (S[i] in Opt) or (S[i + 1] in Opt) then 
Tnsert(' ', S, i + 1); 
for i e Length(S) - 1 downto 1 do {Xoá những dáu cách thùa} 
if (S[i] = ' ') and (S[i + 1] = ' ') then Delete(§, i + 1, 1); 
end; 


function Priority(Ch: Char): Integer; (Hàm lấy múc độ uu tiên của Ch} 


begin 
case ch of 
"mr, "Ji Priority := 2; 
'+', '-'; Priority := 1; 
ITU: Priority := 0; 
end; 
end; 


procedure Process(T: String); {Xù lý một phàn tủ đọc được tù biểu thúc trung tố] 


var 
c, x: Char; 
begin 
c := T[1]; 
if not (c in Opt) then Write(T, ' ') 
else 
case c of 
II": Push(e); 
!)"; repeat 
x := Pop; 
if x © '(' then Write(x, ' '); 
until x = '('; 
+, 1, GAR 1/1: 
begin 
while (Stack <> '') and (Priority(c) <= Priority(Get)) do 
Write(Pop, ' '); 
Push (€) ; 
end; 
end; 
end; 
begin 


Write('Infix = '); ReadIn (Tnfix) ; 
Refine (Tnfix) ; 
WriteIn ('Refined: ', Tnfix) ; 
Write('RPN: '); 
Deel: 
for p := 1 to Length(Tnfix) do 
if Tnfix[p] < ' ' then T := T + Infix[p] 


else 
begin 
Process (T) ; 
T := URE 
end; 
while Stack <> '' do Write(Pop, ' '); 
WriteLn; 


end. 

7.5. XÂY DỰNG CÂY NHI PHÂN BIÉU DIEN BIÉU THÚC 

Ngay trong phần đầu tiên, chúng ta đã biết rằng các dạng biĉu thức trung tô, tiền tố và hậu tó 
đều có thê được hình thành bằng cách duyệt cây nhị phân biêu diễn biểu thức đó theo các trật 


tự khác nhau. Vậy tại sao không xây dựng ngay cây nhị phân biểu diễn biểu thức đó rồi thực 
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hiện các công việc tính toán ngay trên cây?. Khó khăn gặp phải chính là thuật toán xây dựng 
cây nhị phân trực tiếp từ dạng trung tố có thê kém hiệu quả, trong khi đó từ dang hậu tổ lại có 
thê khôi phục lại cây nhị phân biểu diễn biểu thức một cách rất đơn giản, gần giống như quá 
trình tính toán biểu thức hậu tố: 

Bước 1: Khởi tạo một Stack rỗng dùng đề chứa các nút trên cây 

Bước 2: Đọc lần lượt các phần tử của biểu thức RPN từ trái qua phải (phần tử này có thê là 
hằng, biến hay toán tử) với mỗi phần tử đó: 

Tạo ra một nút mới N chứa phần tử mới đọc được 

Nếu phần tử này là một toán tử, lấy từ Stack ra hai nút (theo thứ tự là y và x), sau đó đem liên 
kết trái của N trỏ đến x, đem liên kết phải của N trỏ đến y. 

Đây nút N vào Stack 

Bước 3: Sau khi kết thúc bước 2 thì toàn bộ biểu thức đã được đọc xong, trong Stack chỉ còn 
duy nhất một phần tử, phần tử đó chính là gốc của cây nhị phân biéu diễn biêu thức. 

Bài tập 

Bài 1 

Viết chương trình chuyên biĉu thức trung tố sang dạng RPN, biểu thức trung tố có cả những 
phép toán một ngôi: Phép lấy số đối (-x), phép luỹ thừa x” (x^y), lời gọi hàm số học (sqrt, exp, 
abs v.v...) 

Bài 2 

Viết chương trình chuyền biću thức logic dang trung tó sang dạng RPN. Ví dụ: 

Chuyên: a and b or c and d thành: a b and c d and or 

Bài 3 

Chuyên các biĉu thức sau đây ra dang RPN 

a) A*(B+CJb) A+B/C+D 

c) A* (B+-C) dđ) A- Dro 

el A and port f) Aand (B or not C) 

g) (A or B) and (C or (D and not E)) h) (A= B) or (C = D) 

i) (A < 9) and (A > 3) or not (A > 0) 

j) ((A > 0) or (A< 0)) and (B*B-4*A*Cx<0) 

Bài 4 

Viết chương trình tính biểu thức logic dang RPN với các toán tử and, or, not và các toán hạng 
là TRUE hay FALSE. 

Bài 5 


Viết chương trình hoàn chỉnh tính giá trị biểu thức trung tô. 
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§8. SẮP XÉP (SORTING) 


8.1. BÀI TOÁN SẮP XÉP 


Sắp xếp là quá trình bó trí lại các phần tử của một tập đối tượng nào đó theo một thứ tự nhất 
định. Chắng hạn như thứ tự tăng dần (hay giảm dàn) đối với một dãy ső, thứ tự từ điển đối với 
các từ v.v... Yêu cầu về sắp xếp thường xuyên xuất hiện trong các ứng dụng Tin học với các 
mục đích khác nhau: sắp xếp dù liệu trong máy tính để tìm kiếm cho thuận lợi, sắp xếp các 
kết quả xử lý để in ra trên bảng biểu v.v... 

Nói chung, dữ liệu có thể xuất hiện đưới nhiều dạng khác nhau, nhưng ở đây ta quy ước: Một 
tập các đối tượng cần sắp xếp là tập các bản ghi (records), mỗi bản ghi bao gồm một số 
trường (fields) khác nhau. Nhưng không phải toàn bộ các trường dp liệu trong bản ghi đều 
được xem xét đến trong quá trình sắp xếp mà chỉ là một trường nào đó (hay một vài trường 
nào đó) được chú ý tới thôi. Trường như vậy ta gọi là khoá (key). Sắp xếp sẽ được tiến hành 
dựa vào giá trị của khoá này. 

Vi dụ: Hồ sơ tuyển sinh của một trường Đại học là một danh sách thí sinh, mỗi thí sinh có tên, 
số báo danh, điểm thi. Khi muốn liệt kê danh sách những thí sinh trúng tuyển tức là phải sắp 


xếp các thí sinh theo thứ tự từ điểm cao nhất tới điểm thấp nhất. Ở đây khoá sắp xếp chính là 


điểm thị. 
STT | SBD Họ và tên Điểm thi 
1 A100 Nguyễn Văn A 20 
2 B200 Trân Thị B 25 
3 X150 Phạm Văn C 18 
4 G180 Đỗ Thị D 21 


Khi sắp xếp, các bản ghi trong bảng sẽ được đặt lại vào các vị trí sao cho giá trị khoá tương 
ứng với chúng có đúng thứ tự đã ấn định. Vì kích thước của toàn bản ghi có thể rất lớn, nên 
nếu việc sắp xếp thực hiện trực tiếp trên các bản ghi sẽ đòi hỏi sự chuyển đổi vị trí của các 
bản ghi, kéo theo việc thường xuyên phải đi chuyền, copy những vùng nhớ lớn, gây ra những 
tôn phí thời gian khá nhiều. Thường người ta khắc phục tình trạng này bằng cách xây dựng 
một bảng khoá: Mỗi bản ghi trong bảng ban đầu sẽ tương ứng với một bản ghi trong bảng 
khoá. Bảng khoá cũng gồm các bản ghi nhưng mỗi bản ghi chỉ gồm có hai trường: 

Trường thứ nhất chứa khoá 

Trường thứ hai chứa liên kết tới một bản ghi trong bảng ban đầu, tức là chứa một thông tin đủ 
để biết bản ghi tương ứng với nó trong bảng ban đầu là bản ghi nào. 

Sau đó, việc sắp xếp được thực hiện trực tiếp trên bảng khoá, trong quá trình sắp xếp, bảng 


chính không hề bị ảnh hưởng gì, việc truy cập vào một bản ghi nào đó của bảng chính vẫn 
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có thể thực hiện được bằng cách dựa vào trường liên kết của bản ghi tương ứng thuộc bảng 
khoá. 
Như ở ví dụ trên, ta có thể xây dựng bảng khoá gôm 2 trường, trường khoá chứa điểm và 


trường liên kết chứa số thứ tự của người có điểm tương ứng trong bảng ban đâu: 


Điểm thi STT 
20 1 
25 2 
18 3 
21 4 


Sau khi sắp xếp theo trật tự điểm cao nhất tới điểm thấp nhất, bảng khoá sẽ trở thành: 


Điểm thi | STT 
25 2 
21 4 
20 1 
18 3 


Dựa vào bảng khoá, ta có thể biết được rằng người có điểm cao nhất là người mang số thứ tự 
2, tiếp theo là người mang số thứ tự 4, tiếp nữa là người mang số thứ tự 1, và cuối cùng là 
người mang số thứ tự 3, còn muốn liệt kê danh sách đầy đủ thì ta chỉ việc đối chiếu với bảng 
ban đâu và liệt kê theo thứ tự 2, 4, 1, 3. 
Có thê còn cải tiến tốt hơn dựa vào nhận xét sau: Trong bảng khoá, nội dung của trường khoá 
hoàn toàn có thể suy ra được từ trường liên kết bằng cách: Dựa vào trường liên kết, tìm tới 
bản ghi tương ứng trong bảng chính rồi truy xuất trường khoá trong bảng chính. Như ví dụ 
trên thì người mang số thứ tự 1 chắc chắn sẽ phải có điểm thi là 20, còn người mang số thứ tự 
3 thì chắc chắn phải có điểm thi là 18. Vậy thì bảng khoá có thê loại bỏ đi trường khoá mà chỉ 
giữ lại trường liên kết. Trong trường hợp các phần tử trong bảng ban đầu được đánh số từ 1 
tới n và trường liên kết chính là số thứ tự của bản ghi trong bảng ban đầu như ở ví dụ trên, 
người ta gọi kỹ thuật này là kỹ thuật sắp xếp bằng chỉ số: Bảng ban đầu không hề bị ảnh 
hưởng gì cả, việc sắp xếp chỉ đơn thuần là đánh lại chỉ số cho các bản ghi theo thứ tự sắp xếp. 
Cụ thê hơn: 
Nếu r[1], r[2]. ..., r[n] là các bản ghi cần sắp xếp theo một thứ tự nhất định thì việc sắp xếp 
bằng chỉ số tức là xây dựng một dãy Index[1], Index[2], ..., Index[n] mà ở đây: 
Index[j] = Chỉ số của bản ghi sẽ đứng thứ j khi sắp thứ tự 

(Bản ghi r[index[j]] sẽ phải đứng sau j - 1 bản ghi khác khi sắp xếp) 
Do khoá có vai trò đặc biệt như vậy nên sau này, khi trình bày các giải thuật, ta sẽ coi khoá 
như đại diện cho các bản ghi và để cho đơn giản, ta chỉ nói tới giá trị của khoá mà thôi. Các 


thao tác trong kỹ thuật sắp xếp lẽ ra là tác động lên toàn bản ghi giờ đây chỉ làm trên khoá. 
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Còn việc cài đặt các phương pháp sắp xếp trên danh sách các bản ghi và kỹ thuật sắp xếp 
bằng chỉ số, ta coi như bài tập. 

Bài toán sắp xếp giờ đây có thể phát biểu như sau: 

Xét quan hệ thứ tự toàn phần "nhỏ hơn hoặc bằng" ký hiệu "<" trên một tập hợp S, là quan hệ 
hai ngôi thoả mãn bốn tính chất: 

Với Va,b,ce sS 

Tính phổ biến: Hoặc là a < b, hoặc b < a; 

Tính phản xạ: a < a 

Tính phản đối xứng: Nếu a < b và b < a thì bắt buộc a = b. 

Tính bắc cầu: Nếu có a < b vàb < c thì a < c. 

Trong trường hợp a < b và a + b, ta dùng ký hiệu "<" cho gọn 

Cho một dãy gồm n khoá. Giữa hai khoá bất kỳ có quan hệ thứ tự toàn phần "<". Xếp lại dãy 
các khoá đó dë được dãy khoá thoả mãn kị< kə <....< kn. 


Giả sử câu trúc dữ liệu cho dãy khoá được mô tả như sau: 


const 

nes .; (Số khoá trong dãy khoá, có thê khai dưới dạng biến số nguyên để tuỳ biến hon} 
type 

TKey = .; (Kiểu dữ liệu một khoá} 


TArray = array[l..n] of TKey; 
var 
k: TArray; (Dãy khoá} 
Thì những thuật toán sắp xêp dưới đây được viêt dưới dạng thủ tục sắp xêp dãy khoá k, kiêu 


chỉ số đánh cho từng khoá trong dãy có thể coi là số nguyên Integer. 

8.2. THUẬT TOÁN SÁP XÉP KIỂU CHỌN (SELECTIONSORT) 

Một trong những thuật toán sắp xếp đơn giản nhất là phương pháp sắp xếp kiểu chọn. Ý tưởng 
cơ bản của cách sắp xếp này là: 

Ở lượt thứ nhất, ta chọn trong dãy khoá kı, kạ, ..., Kn ra khoá nhỏ nhất (khoá < mọi khoá khác) 
và đổi giá trị của nó với kı, khi đó giá trị khoá kı trở thành giá trị khoá nhỏ nhất. 


Ở lượt thứ hai, ta chọn trong dãy khoá kạ, ..., kn ra khoá nhỏ nhất và đổi giá trị của nó với kạ. 


Ở lượt thứ i, ta chọn trong dãy khoá ki, kị.¡, ..., kn ra khoá nhỏ nhất và đôi giá trj của nó với 


ki. 


Làm tới lượt thứ n - 1, chọn trong hai khoá kn-1, Kn ra khoá nhỏ nhất và đôi giá tri của nó với 


kn-1- 
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procedure SelectionSort; 
var 
i, j, jmin: Integer; 
begin 
for i := 1 to n - 1 do {Làm n - 1 lượt} 
begin 
(Chọn trong số các khoá tù k; tói k, ra khoá Kimin nhỏ nhất} 
jmin := i; 
for j := i +1 tondo 
if kj < Kimin then jmin := j; 
if jmin # i then 
<Ðåo giá trị của Kimin cho k;> 
end; 
end; 


Đôi với phương pháp kiêu lựa chọn, ta có thê coi phép so sánh (kj < kim) là phép toán tích 
cực đề đánh giá hiệu suất thuật toán về mặt thời gian. Ó lượt thứ i, để chọn ra khoá nhỏ nhất 
bao giờ cũng cần n - ¡ phép so sánh, số lượng phép so sánh này không hề phụ thuộc gì vào 
tình trạng ban đầu của dãy khoá cả. Từ đó suy ra tổng số phép so sánh sẽ phải thực hiện là: 
(n-I)+(n-2)+...+lI=n#*(n-l1)/2 


Vậy thuật toán sắp xếp kiểu chọn có cấp là On") 
8.3. THUẬT TOÁN SÁP XÉP NŐI BỌT (BUBBLESORT) 


Trong thuật toán sắp xếp nổi bọt, dãy các khoá sẽ được duyệt từ cuối dãy lên đầu dãy (từ kn 
về kı), néu găp hai khoá ké cận bị ngược thứ tự thì đôi chỗ của chúng cho nhau. Sau lần duyệt 
như vậy, phần tử nhỏ nhất trong dãy khoá sẽ được chuyền về vị trí đầu tiên và vấn đề trở 


thành sắp xếp dãy khoá từ kạ tới kạ: 


procedure BubbleSort; 
var 

i, j: Integer; 
begin 

for i := 2 to n do 

for j := n downto i do (Duyệt tù cuối dãy lên, làm nổi khoá nhỏ nhất trong số k:¡, .,k, về vị trí i-1} 
1f kj < kj- then 
<Båo giá trị kị và k;ị¡> 

end; 


Đôi với thuật toán sắp xếp nôi bọt, ta có thê coi phép toán tích cực là phép so sánh kj < kj-1. 
Và số lần thực hiện phép so sánh này là: 

(n-I)+(n-2)+...+lI=n#*#(n-1)/2 
Vậy thuật toán sắp xếp nỗi bọt cũng có cấp là O(n?). Bất ké tình trạng d liệu vào như thế 
nào. 


8.4. THUẬT TOÁN SÁP XÉP KIỂU CHEN 


Xét dãy khoá kk... Kn. Ta thấy dãy con chỉ gồm mỗi một khoá là kı có thể coi là đã sắp 
xếp rồi. Xét thêm kə, ta so sánh nó với kı, néu thấy k < kı thì chèn nó vào trước kı. Đối với ka, 


ta lại xét dãy chỉ gồm 2 khoá kı, k2 đã sắp xếp và tìm cách chèn k; vào dãy khoá đó dë được 
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thứ tự sắp xếp. Một cách tổng quát, ta sẽ sắp xếp dãy kı, kə, ..., ki trong điều kiện dãy kı, 


kə, ..., kị¡ đã sắp xếp rồi bằng cách chèn ki vào dãy đó tại vị trí đúng khi sắp xếp. 


procedure TnsertionSort; 
var 
i, j: Integer; 
tmp: TKey; (Biến giữ lại giá trị khoá chèn} 
begin 
for i := 2 to n do {Chèn giá trị k; vào dãy Kir., ku để toàn đoạn kı, kz., Ki trở thành đã sắp xếp} 
begin 
tmp := k;; (Giữ lại giá trị kị} 
]J.:=1.=1; 
while (j > 0) and (tmp < k;) đo {So sánh giá trị cần chèn với lần lượt các khoá k; (i-1>j>0)} 
begin 
kja :E kj; {Ðåy lùi giá trị kj về phía sau một vị trí, tạo ra "khoảng trống" tại vị trí j} 
E 
end: 
Ku := tmp; (Đua giá trị chèn vào "khoảng trống" mới tạo ra} 
end; 
end; 


Đối với thuật toán sắp xếp kiêu chèn, thì chi phí thời gian thực hiện thuật toán phụ thuộc vào 
tình trạng dãy khoá ban đầu. Nếu coi phép toán tích cực ở đây là phép so sánh tmp < kj thì: 
Trường hợp tốt nhất ứng với dãy khoá đã sắp xếp rồi, mỗi lượt chỉ cần 1 phép so sánh, và như 
vậy tông số phép so sánh được thực hiện là n - 1. 
Trường hợp tôi tệ nhất ứng với dãy khoá đã có thứ tự ngược với thứ tự cần sắp thì ở lượt thứ 1, 
cần có i - 1 phép so sánh và tông số phép so sánh là: 
(n-I)+(n-2)+...+lI=n*(n-1)/2. 

Trường hợp các giá trị khoá xuất hiện một cách ngẫu nhiên, ta có thể coi xác suất xuất hiện 
mỗi khoá là đồng khả năng, thì có thể coi ở lượt thứ ¡, thuật toán cần trung bình 1 / 2 phép so 
sánh và tổng số phép so sánh là: 

(1/2)+(2/2)+...+(n/2)=(n+]1)*n/4. 
Nhìn về kết quả đánh giá, ta có thể thấy rằng thuật toán sắp xếp kiểu chèn tỏ ra tốt hơn so với 
thuật toán sắp xếp chọn và sắp xếp nổi bọt. Tuy nhiên, chi phí thời gian thực hiện của thuật 
toán sắp xếp kiểu chèn vẫn còn khá lớn. Và xét trên phương diện tính toán lý thuyết thì cấp 
của thuật toán sắp xếp kiểu chèn vẫn là O(m’). 
Có thê cải tién thuật toán sắp xếp chèn nhờ nhận xét: Khi dãy khoá kı, kạ, ..., kị đã được sắp 
xếp thì việc tìm vị trí chèn có thể làm bằng thuật toán tìm kiếm nhị phân và kỹ thuật chèn có 
thể làm bằng các lệnh dịch chuyên vùng nhớ cho nhanh. Tuy nhiên điều đó cũng không làm 
tốt hơn cấp độ phức tạp của thuật toán bởi trong trường hợp xấu nhất, ta phải mát n - 1 lần 
chèn và lần chèn thứ i ta phải dịch lùi i khoá để tạo ra khoảng trống trước khi dän giá trị khoá 


chèn vào chô trông đó. 
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procedure InsertionSortwithBinarySearching; 


var 
i, inf, sup, median: Integer; 
tmp: TKey; 
begin 
for i := 2 to n do 
begin 
tmp := ki; (Giữ lại giá trị ki) 
inf := 1; sup := i - 1; {Tìm chỗ chèn giá trị tmp vào đoạn từ Ka tới Ksp} 
repeat {Sau mỗi vòng lặp này thì đoạn tìm bị co lại một nửa} 
median := (inf + sup) div 2; {Xét chỉ số nằm giữa chỉ số inf và chỉ số sup} 
if tmp < k[median] then sup := median - 1 
else inf := median + 1; 
until inf > sup; {Két thúc vòng lặp thì inf = sup + 1 chính là vị trí chèn} 
<Dich các phần tử từ kins tới k;-ı lùi sau một vị trí> 
Ka := tmp; {Đua giá trị tmp vào "khoảng trống" mới tạo ra} 
end; 
end; 


8.5. SHELLSORT 

Nhược điểm của thuật toán sắp xếp kiểu chèn thê hiện khi mà ta luôn phải chèn một khóa vào 
vị trí gần đầu dãy. Trong trường hợp đó, người ta sử dụng phương pháp ShellSort. 

Xét dãy khoá: kı, k2, ..., kn. Với một só nguyên duong h: 1 < h < n, ta có thê chia dãy đó 
thành h dãy con: 

Dãy con 1: ki, Ki+h, Ki +2n,... 


Dãy con 2: k2, k2+h, K2+2ħh, 


Dãy con h: kp, Ka, kan, -.. 


Vĩ dụ như dãy (4, 6, 7, 2, 3, 5, 1, 9, 8); n = 9; h = 3. Có 3 dãy con. 


Dãy khoá chính: 4 6 7 2 3 5 1 9 8 
Dãy con 1: 4 2 1 

Dãy con 2: 6 3 9 

Dãy con 3: i 5 8 


Những dãy con như vậy được gọi là dãy con xếp theo độ dài bước h. Tư tưởng của thuật toán 
ShellSort là: Với một bước h, áp dụng thuật toán sắp xếp kiểu chèn từng dãy con độc lập để 
làm mịn dần dãy khoá chính. Rồi lại làm tương tự đối với bước h div 2... cho tới khi h = 1 thì 
ta được dãy khoá sắp xếp. 

Như ở ví dụ trên, nếu dùng thuật toán sắp xếp kiểu chèn thì khi gặp khoá k; = 1, là khoá nhỏ 
nhất trong dãy khoá, nó phải chèn vào vị trí 1, tức là phải thao tác trên 6 khoá đứng trước nó. 
Nhưng nếu coi 1 là khoá của dãy con 1 thì nó chỉ cần chèn vào trước 2 khoá trong dãy con đó 
mà thôi. Đây chính là nguyên nhân ShellSort hiệu quả hơn sắp xếp chèn: Khoá nhỏ được 


nhanh chóng đưa vê gân vi trí đúng của nó. 
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procedure Shell§ort; 
var 
i, j, h: Integer; 
tmp: TKey; 
begin 
h := n div 2; 
while h <> 0 do {Làm mịn dãy với độ dài bước h} 
begin 
for i :=h +1 ton do 
begin {Sáp xếp chèn trên dãy con di-n, air aisr Boun ..} 
tmp := k;; j := i- h; 
while (j > 0) and (k; > tmp) do 


h := h div 2; 
end; 
end; 


8.6. THUẬT TOÁN SẮP XÉP KIỂU PHÂN ĐOẠN (QUICKSORT) 


8.6.1. Tư tưởng của QuickSort 

QuickSort là một phương pháp sắp xếp tốt nhất, nghĩa là dù dãy khoá thuộc kiểu đữ liệu có 
thứ tự nào, QuickSort cũng có thể sắp xếp được và không có một thuật toán sắp xếp nào 
nhanh hơn QuickSort về mặt tốc độ trung bình (theo tôi biết). Người sáng lập ra nó là C.A.R. 
Hoare đã mạnh dạn đặt tên cho nó là sắp xếp "NHANH". 

Ý tưởng chủ đạo của phương pháp có thể tóm tắt như sau: Sắp xếp dãy khoá kı, kạ, ..., Kn thì 
có thể coi là sắp xếp đoạn từ chỉ số 1 tới chỉ số n trong dãy khoá đó. Để sắp xếp một đoạn 
trong dãy khoá, nếu đoạn đó có < 1 phần tử thì không cần phải làm gì cả, còn nếu đoạn đó có 
ít nhất 2 phần tử, ta chọn một khoá ngẫu nhiên nào đó của đoạn làm "chốt" (pivot). Mọi khoá 
nhỏ hơn khoá chốt được xếp vào vi trí đứng trước chốt, mọi khoá lớn hơn khoá chốt được xếp 
vào vị trí đứng sau chốt. Sau phép hoán chuyên như vậy thì đoạn đang xét được chia làm hai 
đoạn khác rỗng mà mọi khoá trong đoạn đầu đều < chốt và mọi khoá trong đoạn sau đều > 
chốt. Hay nói cách khác: Mỗi khoá trong đoạn đầu đều < mọi khoá trong đoạn sau. Và vấn đề 
trở thành sắp xếp hai đoạn mới tạo ra (có độ dài ngắn hơn đoạn ban đầu) bằng phương pháp 


tương tự. 
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procedure Quick§ort; 


procedure Partition(L, H: Integer); (Sắp xếp đoạn tù ku, Krm, =, Ka} 
var 
i, j: Integer; 
Pivot: TKey; {Biến lưu giá trị khoá chốt] 
begin 
if L > H then Exit; (Nếu đoạn chỉ có < 1 phần tủ thì không phải làm gì cả) 
Pivot := Fesséeatg Aug 7 (Chọn một khoá ngẫu nhiên trong đoạn làm khoá chốt) 
i := L; j:=H; {i := vị trí đầu đoạn; j := vị trí cuối đoạn) 
repeat 
while k; < Pivot do i := i + 1; (Tìm tù đầu đoạn khoá > khoá chốt) 
while k; > Pivot do j := j - 1; {Tìm tù cuỗi đoạn khoá < khoá chốt] 
(Bến đây ta tìm được hai khoá k; và k; mà k; > key > k;} 
if i < j then 
begin 
if i < j then (Nếu chỉ số i đúng trước chỉ số j thì đảo giá trị hai khoá k; và k;} 
<Ðåo giá trị k; và k;> (Sau phép đảo này ta có: k; < key < k; } 
1:zi1†1;]}:Z]- l; 
end; 
until i > j; 
Partition(L, j); Partition(i, H); {Sáp xếp hai đoạn con mới tạo ra} 
end; 


begin 
Partition(1, n); 
end; 


Ta thử phân tích xem tại sao đoạn chương trình trên hoạt động đúng: Xét vòng lặp 
repeat...until trong lần lặp đầu tiên, vòng lặp while thứ nhất chắc chắn sẽ tìm được khoá ki 
> khoá chốt bởi chắc chắn tồn tại trong đoạn một khoá bằng khóa chốt. Tương tự như vậy, 
vòng lặp while thứ hai chắc chắn tìm được khoá kị < khoá chốt. Nếu như khoá ki đứng 
trước khoá kj thì ta đảo giá trị hai khoá, cho i tiến và j lùi. Khi đó ta có nhận xét rằng mọi 
khoá đứng trước vị trí ¡ sẽ phải < khoá chốt và mọi khoá đứng sau vị trí j sẽ phải > khoá chốt. 

Lx[ „| IS KS ES EES EES ECH ES ES. 


< Khoá chốt > Khoá chốt 


Hình 28: Vòng lặp trong của QuickSort 
Điều này đảm bảo cho vòng lặp repeat...until tại bước sau, hai vòng lặp while...đo bên trong 
chắc chắn lại tìm được hai khoá ki và kj mà ki > khoá chốt > kj, nêu khoá k; đứng trước khoá k; 
thì lại đảo giá trị của chúng, cho i tién về cuối một bước và j lùi về đầu một bước. Vậy thì quá 
trình hoán chuyền phần tử trong vòng lặp repeat...until sẽ đảm bảo tại mỗi bước: 
e Hai vòng lặp while...do bên trong luôn tìm được hai khoá ki, kj mà ki; > khoá chốt > kj. 
Không có trường hợp hai chi số i, j chạy ra ngoài đoạn (luôn luôn có L < i, j < H). 
e Sau mỗi phép hoán chuyền, mọi khoá đứng trước vị trí i luôn < khoá chốt và mọi khoá 
đứng sau vị trí j luôn > khoá chốt. 


Vòng lặp repeat ...until sẽ kết thúc khi mà chỉ số ¡ đứng phía sau chỉ số j (Hình 29). 
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[x[-[-[-|»[-]|-[|[-|šs[-|-|- [|] 
— 


< Khoá chốt 


> Khoá chốt 


Hình 29: Trạng thái trước khi gọi đệ quy 
Theo những nhận xét trên, néu có một khoá nằm giữa kj và ki thì khoá đó phải đúng bằng 
khoá chốt và nó đã được đặt ở vị trí đúng của nó, nên có thể bỏ qua khoá này mà chỉ xét hai 
đoạn ở hai đầu. Công việc còn lại là gọi đệ quy đề làm tiếp với đoạn từ kı tới kj và đoạn từ k; 
tới ky. Hai đoạn này ngắn hơn đoạn đang xét bởi vì L <j < i < H. Vậy thuật toán không bao 
giờ bị rơi vào quá trình vô hạn mà sẽ đừng và cho kết quả đúng đắn. 
Xét về độ phức tạp tính toán: 
Trường hợp tôi tệ nhất, là khi chọn khoá chốt, ta chọn phải khoá nhỏ nhất hay lớn nhất trong 
đoạn, khi đó phép phân đoạn sẽ chia thành một đoạn gồm n-Ì phần tử và đoạn còn lại chỉ có 
1 phần tử. Có thê chứng minh trong trường hợp này, thời gian thực hiện giải thuật T(n) = Our? 
Trường hợp tốt nhất, phép phân đoạn tại mỗi bước sẽ chia được thành hai đoạn bằng nhau. 
Tức là khi chọn khoá chốt, ta chọn đúng trung vị của dãy khoá. Có thể chứng minh trong 
trường hợp này, thời gian thực hiện giải thuật T(n) = O(nlog2n) 
Trường hợp các khoá được phân bố ngẫu nhiên, thì trung bình thời gian thực hiện giải thuật 
cũng là T(n) = O(nlogan). 
Việc tính toán chỉ tiết, đặc biệt là khi xác định T(n) trung bình, phải dùng các công cụ toán 


phức tạp, ta chỉ công nhận những kết quả trên. 


8.6.2. Vài cải tiến của QuickSort 

Việc chọn chốt cho phép phân đoạn quyết định hiệu quả của QuickSort, nếu chọn chốt không 
tốt, rất có thể việc phân đoạn bị suy biến thành trường hợp xấu khiến QuickSort hoạt động 
chậm và tràn ngăn xếp chương trình con khi gặp phải dây chuyền đệ qui quá dài. Một cải tiến 
sau có thể khắc phục được hiện tượng tràn ngăn xếp nhưng cũng hết sức chậm trong trường 
hợp xấu, kỹ thuật này khi đã phân được [L, H] được hai đoạn con [L, j] và D. H] thì chỉ gọi đệ 


quy để tiếp tục đối với đoạn ngắn, và lặp lại quá trình phân đoạn đối với đoạn dài. 
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procedure QuickSort; 


procedure Partition(L, H: Integer); (Sắp xếp đoạn tù k;, Krm, m, kl 
Var 
i, j: Integer; 
begin 
repeat 
if L > H then Exit; 
<Phân đoạn [L, H] được hai đoạn con [L, j] và [i, H]> 
if <đoạn [L, j] ngắn hơn đoạn [i, H]> then 


begin 
Partition(L, j); L := i; 
end 
else 
begin 
Partition(i, H); H := j; 
end; 
until False; 
end; 
begin 
Partition(1, n); 
end; 


Cải tiễn thứ hai đôi với QuickSort là quá trình phân đoạn nên chỉ làm đến một mức nào đó, 
đến khi đoạn đang xét có độ dài < M (M là một số nguyên tự chọn nằm trong khoảng từ 9 tới 
25) thì không phân đoạn tiếp mà nên áp dụng thuật toán sắp xếp kiểu chèn. 
Cải tiến thứ ba của QuickSort là: Nên lấy trung vị của một dãy con trong đoạn dë làm chốt, 
(trung vị của một dãy n phần tử là phần tử đứng thứ n / 2 khi sắp thứ tự). Cách chọn được 
đánh giá cao nhất là chọn trung vị của ba phần tử đầu, giữa và cuối đoạn. 
Cuối cùng, ta có nhận xét: QuickSort là một công cụ sắp xếp mạnh, chỉ có điều khó chịu gặp 
phải là trường hợp suy biến của QuickSort (quá trình phân đoạn chia thành một dãy rất ngắn 
và một dãy rất dài). Và điều này trên phương diện lý thuyết là không thê khắc phục được: Ví 
dụ với n = 10000. 
Nếu như chọn chốt là khoá đầu đoạn (Thay dòng chọn khoá chốt bằng Pivot := kų) hay chọn 
chốt là khoá cuối đoạn (Thay bằng Pivot := kp) thì với dãy sau, chương trình hoạt động rất 
chậm: 
(1, 2, 3, 4, 5, ...., 9999, 10000) 

Nếu như chọn chốt là khoá giữa đoạn (Thay dòng chọn khoá chốt bằng Pivot := Ku mg 2) thì 
với dãy sau, chương trình cũng rất chậm: 

(1, 2, ..., 4999, 5000, 5000, 4999, ..., 2, 1) 
Trong trường hợp chọn chốt là trung vị dãy con hay chọn chốt ngẫu nhiên, thật khó có thể tìm 
ra một bộ dữ liệu khiến cho QuiekSort hoạt động chậm. Nhưng ta cũng cần hiểu rằng với mọi 
chiến lược chọn chốt, trong 10000! dãy hoán vị của dãy (1, 2, ... 10000) thế nào cũng có một 
dãy làm QuiekSort bị suy biến, tuy nhiên trong trường hợp chọn chốt ngẫu nhiên, xác suất xảy 


ra dãy này quá nhỏ tới mức ta không cần phải tính đến, như vậy khi đã chọn chốt ngẫu nhiên 
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thì ta không cần phải quan tâm tới ngăn xếp đệ quy, không cần quan tâm tới kỹ thuật khử đệ 


quy và vân đê suy biên của QuickSort. 


8.7. THUẬT TOÁN SÁP XÉP KIỂU VUN ĐÓNG (HEAPSORT) 


8.7.1. Đồng (heap) 
Đống là một dạng cây nhị phân hoàn chỉnh đặc biệt mà giá trị lưu tại mọi nút nhánh đều lớn 


hơn hay bằng giá trị lưu trong hai nút con của nó. 


Hình 30: Heap 


8.7.2. Vun đồng 

Trong bài học về cây, ta đã biết một dãy khoá kı, k2, ..., Kn là biểu diễn của một cây nhị phân 
hoàn chỉnh mà k; là giá trị lưu trong nút thứ i, nút con của nút thứ i là nút 2i và nút 21 + 1, nút 
cha của nút thứ j là nút j div 2. Vẫn đề đặt ra là sắp lại dãy khoá đã cho đề nó biểu diễn một 
đồng. 

Vì cây nhị phân chỉ gồm có một nút hiển nhiên là đồng, nên để vun một nhánh cây gốc r 
thành đồng, ta có thể coi hai nhánh con của nó (nhánh gốc 2r và 2r + 1) đã là đống rồi và 
thực hiện thuật toán vun đống từ đưới lên (bottom-up) đối với cây: Gọi h là chiều cao của cây, 
nút ở mức h (nút lá) đã là gốc một đống, ta vun lên để những nút ở mức h - 1 cũng là gốc của 
đống, ... cứ như vậy cho tới nút ở mức 1 (nút gốc) cũng là gốc của đồng. 

Thuật toán vun thành đồng đối với cây gốc r, hai nhánh con của r đã là đồng rồi: 

Giả sử ở nút r chứa giá trị V. Từ r, ta cứ đi tới nút con chứa giá trị lớn nhất trong 2 nút con, 
cho tới khi gặp phải một nút c mà mọi nút con của c đều chứa giá trị < V (nút lá cũng là 
trường hợp riêng của điều kiện này). Dọc trên đường đi từ r tới c, ta đây giá trị chứa ở nút con 


lên nút cha và đặt giá trị V vào nút c. 
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Hình 31: Vun đống 


8.7.3. Tư tưởng của HeapSort 

Đầu tiên, dãy khoá kı, kạ, ..., Kn được vun từ đưới lên để nó biểu diễn một đống, khi đó khoá 
kị tương ứng với nút gốc của đồng là khoá lớn nhất, ta đảo giá trị khoá đó cho kạ và không 
tính tới kn nữa (Hình 32). Còn lại dãy khoá kı, k2, ..., Kn-1 tuy không còn là biểu diễn của một 
đống nữa nhưng nó lại biểu diễn cây nhị phân hoàn chỉnh mà hai nhánh cây ở nút thứ 2 và nút 
thứ 3 (hai nút con của nút 1) đã là đồng ròi. Vậy chi càn vun môt lần, ta lại được môt đồng, 
đảo giá trị kı cho kn-ı và tiếp tục cho tới khi đống chỉ còn lại 1 nút (Hình 33). 

Ví dụ: 


Hình 32: Đảo giá trị kı cho k, và xét phần còn lại 
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Hình 33: Vun phần còn lại thành đống rồi lại đảo trị kı cho kn-ı 
Thuật toán HeapSort có hai thủ tục chính: 
Thủ tục Adjust(root, endnode) vun cây gốc root thành đồng trong điều kiện hai cây gốc 2.root 
và 2.root +1 đã là đồng rồi. Các nút từ endnode + 1 tới n đã nằm ở vị trí đúng và không được 
tính tới nữa. 


Thủ tục HeapSort mô tả lại quá trình vun đồng và chọn phần tử theo ý tưởng trên: 


procedure HeapSort; 
var 
r, i: Integer; 


procedure Adjust (root, endnode: Integer); {Vun cây gốc Root thành đống) 


var 
c: Integer; 
Key: TKey; (Biến lưu giá trị khoá ở nút Root} 
begin 
Key := Kroot; 
while root * 2 < endnode do {Chùng nào root chưa phải là lá} 
begin 
c := Root * 2; {Xét nút con trái của Root, so sánh với giá trị nút con phải, chọn ra nút mang giá trị lớn nhất} 
if (c < endnode) and (k, < ka) then c := œ † 1; 
if k, < Key then Break; (Cả hai nút con của Root đều mang giá trị < Key thì dùng ngay} 
Kroot := kạ; root := c; (Chuyển giá trị tù nút con c lên nút cha root và đi xuống xét nút con c} 
end; 
Kat := Key; {Đặt giá trị Key vào nút root} 
end; 


begin (Bắt đầu thuật toán HeapSort] 
for r := n div 2 downto 1 do Adjust(r, n); {Vun cây tù dưới lên tạo thành đồng] 
for i := n downto 2 do 
begin 
<Ðåo giá trị kị và ka {Khoá lớn nhất được chuyên ra cuối dãy] 
Adjust(1, i - 1); {Vun phàn còn lại thành đống) 
end; 
end; 


Vê độ phức tạp của thuật toán, ta đã biệt răng cây nhị phân hoàn chỉnh có n nút thì chiêu cao 
của nó không quá [log2(n + 1)] + 1. Cứ cho là trong trường hợp xấu nhất thủ tục Adjust phải 
thực hiện tìm đường đi từ nút gốc tới nút lá ở xa nhất thì đường đi tìm được cũng chỉ dài bằng 
chiều cao của cây và độ phức tạp của một lần gọi Adjust là O(log2n). Từ đó có thể suy ra, 


trong trường hợp xấu nhất, độ phức tạp của HeapSort cũng chỉ là O(nlogan). Việc đánh giá 
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thời gian thực hiện trung bình phức tạp hơn, ta chỉ ghi nhận một kết quả đã chứng minh được 
là độ phức tạp trung bình của HeapSort cũng là O(nlogan). 

Có thể nhận xét thêm là QuickSort đệ quy cần thêm không gian nhớ cho Stack, còn HeapSort 
ngoài một nút nhớ phụ để thực hiện việc dëi chỗ, nó không cần dùng thêm gì khác. HeapSort 
tốt hơn QuickSort về phương diện lý thuyết bởi không có trường hợp tồi tệ nào HeapSort có 
thể mắc phải. Cũng nhờ có HeapSort mà giờ đây khi giải mọi bài toán có chứa mô-đun sắp 


xếp, ta có thể nói răng độ phức tạp của thủ tục sắp xếp đó không quá O(nlogan). 
8.8. SÁP XÉP BÅNG PHÉP DEM PHÂN PHÓI (DISTRIBUTION 
COUNTING) 


Có một thuật toán sắp xếp đơn giản cho trường hợp đặc biệt: Dãy khoá kı, kə, ..., Kn là các số 
nguyên nằm trong khoảng từ 0 tới M (TKey = 0..M). 
Ta dựng dãy cọ, C1, ..., CM Các biến đếm, ở đây cy là số lần xuất hiện giá trị V trong dãy khoá: 


for V := 0 to M do cy := 0; (Khỏi tạo dãy biến đếm) 
for i := 1 to n do C, :Z cụ, + 1; 


Vi dụ với dãy khoá: 1, 2, 2, 3, 0, 0, 1, 1, 3, 3 (n = 10, M =3), sau bước đếm ta có: 


co = 2; cị=3;ca= 2; c› =3. 
Dựa vào dãy biến đếm, ta hoàn toàn có thê biết được: sau khi sắp xếp thì giá trị V phải nằm từ 
vị trí nào tới vị trí nào. Như ví dụ trên thì giá trị 0 phải năm từ vị trí 1 tới vị trí 2; giá tri 1 phải 
đứng liên tiếp từ vị trí 3 tới vị trí 5; giá trị 2 đứng ở vị trí 6 và 7 còn giá trị 3 năm ở ba vị trí 
cuối 8, 9, 10: 

0011122333 
Tức là sau khi sắp xếp: 
Giá trị 0 đứng trong đoạn từ vi trí 1 tới vi trí cọ. 


Giá trị 1 đứng trong đoạn từ vi trí cọ + 1 tới vi trí cọ + c1. 


Giá trị 2 đứng trong đoạn từ vi trí cọ + cı + 1 tới vị trí cọ + c¡ + c2. 


Giá trị v trong đoạn đứng từ vi trí cọ + cı +... + Cy-1 + 1 tới vị trí cọ + cị + c2 +... + Cy. 


Đê ý vị trí cuôi của môi đoạn, nêu ta tính lại dãy c như sau: 


for V := 1 to M do Cy := Cy-1 + Cy 
Thì cy là vị trí cuôi của đoạn chứa giá trị V trong dãy khoá đã sắp xêp. 


Muốn dựng lại dãy khoá sắp xếp, ta thêm một dãy khoá phụ xI, x2, ..., xn. Sau đó duyệt lại 
dãy khoá k, mỗi khi gặp khoá mang giá trị V ta đưa giá trị đó vào khoá xc và giảm cv đi 1. 


for i := n downto 1 do 


Xo = k; Cụ spe: 1; 
end; 
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Khi đó dãy khoá x chính là dãy khoá đã được sắp xếp, công việc cuối cùng là gán giá trị dãy 
khoá x cho dãy khoá k. 


procedure DistributionCounting; {TKey = 0..M} 
var 
c: array[0..M] of Integer; (Dãy bién đếm số lần xuất hiện mỗi giá trị] 
x: TArray; (Dãy khoá phụ] 
1: Integer; 
V: fer: 
begin 
for V := 0 to M do cy := 0; (Khởi tạo dãy biến đếm) 
for i:=1ton do œ eet (Đếm số lần xuất hiện các giá trị) 
for V := 1 to M do Cy := Cy} + Cy; (Tính vị trí cuối mỗi đoạn) 
for i := n downto 1 do 


begin 
V := ki; 
Xaq (= ki; cv = cy- 1; 
end; 
k := x; {Sao chép giá trị từ dãy khoá x sang dãy khoá k} 


end; 


Rõ ràng độ phức tạp của phép đêm phân phôi là O(max(M, n)). Nhược điêm của phép đêm 
phân phối là khi M quá lớn thì cho đù n nhỏ cũng không thể làm được. 

Có thể có thắc mắc tại sao trong thao tác dựng dãy khoá x, phép duyệt dãy khoá k theo thứ tự 
nào thì kết quả sắp xếp cũng như vậy, vậy tại sao ta lại chọn phép duyệt ngược từ dưới lên?. 


Để trả lời câu hỏi này, ta phải phân tích thêm một đặc trưng của các thuật toán sắp xếp: 
8.9. TÍNH ÔN ĐỊNH CỦA THUẬT TOÁN SÁP XÉP (STABILITY) 


Một phương pháp sắp xếp được gọi là ôn định nếu nó bảo toàn thứ tự ban đầu của các bản 
ghi mang khoá bằng nhau trong danh sách. Ví dụ như ban đầu danh sách sinh viên được xếp 
theo thứ tự tên alphabet, thì khi sắp xếp danh sách sinh viên theo thứ tự giảm dàn của điểm thi, 
những sinh viên bằng điểm nhau sẽ được dòn về một đoạn trong danh sách và vẫn được giữ 
nguyên thứ tự tên alphabet. 

Hãy xem lại nhưng thuật toán sắp xếp ở trước, trong những thuật toán đó, thuật toán sắp xếp 
nỗi bọt, thuật toán sắp xếp chèn và phép đếm phân phối là những thuật toán sắp xếp őn định, 
còn những thuật toán sắp xếp khác (và nói chung những thuật toán sắp xếp đòi hỏi phải đảo 
giá trị 2 bản ghi ở vị trí bất kỳ) là không ôn định. 

Với phép đếm phân phối ở mục trước, ta nhận xét rằng nếu hai bản ghi có khoá sắp xếp bằng 
nhau thì khi đưa giá trị vào dãy bản ghi phụ, bản ghi nào vào trước sẽ nằm phía sau. Vậy nên 
ta sẽ đây giá trị các bản ghi vào dãy phụ theo thứ tự ngược dë giữ được thứ tự tương đối ban 
đầu. 

Nói chung, mọi phương pháp sắp xếp tổng quát cho dù không ôn định thì đều có thê biến đổi 
để nó trở thành ồn định, phương pháp chung nhất được thể hiện qua ví dụ sau: 

Giả sử ta cần sắp xếp các sinh viên trong danh sách theo thứ tự giảm dần của điểm bằng một 


thuật toán sắp xếp ôn định. Ta thêm cho mỗi sinh viên một khoá Index là thứ tự ban đầu của 
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anh ta trong danh sách. Trong thuật toán sắp xếp được áp dụng, cứ chỗ nào cần so sánh hai 
sinh viên A và B xem anh nào phải đứng trước, trước hết ta quan tâm tới điểm số: Nếu điểm 
của A khác điểm của B thì anh nào điểm cao hơn sẽ đứng trước, nếu điểm số bằng nhau thì 
anh nào có Index nhỏ hơn sẽ đứng trước. 

Trong một số bài toán, tính ôn định của thuật toán sắp xếp quyết định tới cả tính đúng đắn của 
toàn thuật toán lớn. Chính tính "nhanh" của QuickSort và tính ôn định của phép đếm phân 
phối là cơ sở nền tảng cho hai thuật toán sắp xếp cực nhanh trên các dãy khoá số mà ta sẽ 
trình bày dưới đây. 

8.10. THUẬT TOÁN SÁP XÉP BẰNG CƠ SỐ (RADIXSORT) 


Bài toán đặt ra là: Cho dãy khoá là các số tự nhiên kı, kạ, ..., Kn hãy sắp xếp chúng theo thứ tự 
không giảm. (Trong trường hợp ta đang xét, TKey là kiểu số tự nhiên) 


8.10.1. Sắp xếp cơ số theo kiểu hoán vị các khoá (Exchange RadixSort) 

Hãy xem lại thuật toán QuickSort, tại bước phân đoạn nó phân đoạn đang xét thành hai đoạn 
thoả mãn mỗi khoá trong đoạn đầu < mọi khoá trong đoạn sau và thực hiện tương tự trên hai 
đoạn mới tạo ra, việc phân đoạn được tiễn hành với sự so sánh các khoá với giá trị một khoá 
chốt. 

Đối với các số nguyên thì ta có thể coi mỗi số nguyên là một dãy z bit đánh số từ bit 0 (bit ở 
hàng đơn vị) tới bit z - 1 (bit cao nhất). 

Ví dụ: 


Hình 34: Đánh số các bit 


Vậy thì tại bước phân đoạn dãy khoá từ kı tới kn, ta có thể đưa những khoá có bit cao nhất là 0 
về đầu dãy, những khoá có bit cao nhất là 1 về cuối dãy. Dễ thấy rằng những khoá bắt đầu 
bằng bit 0 sẽ phải nhỏ hơn những khoá bắt đầu bằng bít 1. Tiếp tục quá trình phân đoạn với 
hai đoạn dãy khoá: Đoạn gồm các khoá có bit cao nhất là 0 và đoạn gồm các khoá có bit cao 
nhất là 1. Với những khoá thuộc cùng một đoạn thì có bit cao nhất giống nhau, nên ta có thể 
áp dụng quá trình phân đoạn tương tự trên theo bit thứ z - 2 và cứ tiếp tục như vậy ... 

Quá trình phân đoạn kết thúc nếu như đoạn đang xét là rỗng hay ta đã tiến hành phân đoạn 
đến tận bit đơn vị, tức là tất cả các khoá thuộc một trong hai đoạn mới tạo ra đều có bit đơn vị 
bằng nhau (điều này đồng nghĩa với sự bằng nhau ở tất cả những bit khác, tức là bằng nhau về 
giá trị khoá). 

Vị dụ: 
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Xét dãy khoá: 1, 3, 7, 6, 5, 2, 3, 4, 4, 5, 6, 7. Tương ứng với các dãy 3 bit: 


Trước hết ta chia đoạn dựa vào bit 2 (bit cao nhất): 


“——.ˆ ——=—======——===ẽ==ễằ==ẽễề=..-=ễ==ẽ—.-_cổ—=ẽẻổ 
DRESDEN 
H 4 i 1 g il 2 H d 


Sau đó chia tiếp hai đoạn tạo ra dựa vào bit 1: 


Z———z—— 
[o1 | ơn) a H pma Wi lol ole) 
r p j E a D z 


Cuối cùng, chia tiếp những đoạn tạo ra dựa vào bit 0: 


ët ee EE NET ` A 
EInimmmmrmimnmmmm 
ad E 


Ta được dãy khoá tương ứng: 1, 2, 3, 3, 4, 4, 5, 5, 6, 6, 7, 7 là dãy khoá sắp xếp. 


Quá trình chia đoạn dựa vào bịt b có thể chia thành một đoạn rỗng và một đoạn gồm toàn bộ 
các phần tử còn lại, nhưng việc chia đoạn không bao giờ bị rơi vào quá trình đệ quy vô hạn 
bởi những lần đệ quy tiếp theo sẽ phân đoạn dựa vào bit b - 1, b - 2 ...và nếu xét đến bit 0 sẽ 
phải dừng lại. Công việc còn lại là có gắng hiểu đoạn chương trình sau và phân tích xem tại 


sao nó hoạt động đúng: 
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procedure ExchangeRadixSort; 
Var 
z: Integer; {Độ dài dãy bit biểu diễn mỗi khoá] 


procedure Partition(L, H, b: Integer); {Phân đoạn [L, H] dựa vào bit b} 
var 
i, j: Integer; 
begin 
if L 2 H then Exit; 
i := L; j := H; 
repeat 
{Hai vòng lặp trong dưới đây luôn cẩm canh i < j} 
while (i < j) and (Bit b của k; = 0) do i i +1; {Tìm khoá có bit b = 1 tù đầu đoạn) 
while (i < j) and (Bit b của kj = 1) do j := j - 1; (Tìm khoá có bit b = 0 tù cuói doan} 
ën giá trị k; cho k;>; 
until i= j; 
if <Bit b của kj = 0> then j := j † 1; {j là điểm bắt đầu của đoạn có bit b là 1} 
if b > 0 then {Chua xét tới bit đơn vi} 
begin 
Partition(L, j - 1, b - 1); Partition(j, R, b - 1); 
end; 
end; 


begin 
<Dựa vào giá trị lớn nhất của dãy khoá, 
xác định z là độ dài dër bit biểu diễn mỗi khoá> 
Partition(1, n, z - 1); 

end; 


Với RadixSort, ta hoàn toàn có thể làm trên hệ cơ số R khác chứ không nhật thiết phải làm 
trên hệ nhị phân (ý tưởng cũng tương tự như trên), tuy nhiên quá trình phân đoạn sẽ không 
phải chia làm 2 mà chia thành R đoạn. Về độ phức tạp của thuật toán, ta thấy để phân đoạn 
bằng một bit thì thời gian sẽ là C.n đề chia tất cả các đoạn cần chia bằng bit đó (C là hằng số). 
Vậy tông thời gian phân đoạn bằng z bit sẽ là C.n.z. Trong trường hợp xấu nhất, độ phức 
tạp của RadixSort là O(n.z). Và độ phức tạp trung bình của RadixSort là O(n.min(z, 
logan)). 

Nói chung, RadixSort cài đặt như trên chỉ thể hiện tốc độ tối đa trên các hệ thống cho phép xử 
lý trực tiếp trên các bit: Hệ thống phải cho phép lấy một bit ra dë dàng và thao tác với thời 
gian nhanh hơn hắn so với thao tác trên Byte và Word. Khi đó RadixSort sẽ tốt hơn nhiều 
QuickSort. (Ta thử lập trình sắp xếp các dãy nhị phân độ dài z theo thứ tự từ điển để khảo sát). 
Trên các máy tính hiện nay chỉ cho phép xử lý trực tiếp trên Byte (hay Word, DWord v.v...), 
việc tách một bit ra khỏi Byte đó để xử lý lại rất chậm và làm ảnh hưởng không nhỏ tới tốc độ 
của RadixSort. Chính vì vậy, tuy đây là một phương pháp hay, nhưng khi cài đặt cụ thể thì tốc 


độ cũng chỉ ngang ngửa chứ không thể qua mặt QuickSort được. 


8.10.2. Sắp xếp cơ số trực tiếp (Straight RadixSort) 


Ta sẽ trình bày phương pháp sắp xếp cơ số trực tiếp bằng một ví dụ: Sắp xếp dãy khoá: 


EIEnENESE1IEnE1IEIEIES 
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Trước hết, ta sắp xếp dãy khoá này theo thứ tự tăng dần của chữ số hàng đơn vị bằng một 


thuật toán sắp xếp khác, được dãy khoá: 


Galele eiee e eee 
al cái ail „ái ll ll Bi al | 


Sau đó, ta sắp xếp dãy khoá mới tạo thành theo thứ tự tăng dần của chữ số hàng chục bằng 


một thuật toán sắp xếp ôn định, được dãy khoá: 


EaEnEaElaEcirirarararn 
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Vì thuật toán sắp xêp ta sử dụng là ôn định, nên nêu hai khoá có chữ sô hàng chục giông nhau 


thì khoá nào có chữ số hàng đơn vị nhỏ hơn sẽ đứng trước. Nói như vậy có nghĩa là dãy khoá 
thu được sẽ có thứ tự tăng dần về giá trị tạo thành từ hai chữ só cuối. 
Cuối cùng, ta sắp xếp lại dãy khoá theo thứ tự tăng dần của chữ số hàng trăm cũng bằng một 


thuật toán sắp xếp ôn định, thu được dãy khoá: 


| t8 | ses | sm | ose | eso | raz | rẻ [ sir | sm | se | 
j ahi a — ] m 


Lập luận tương tự như trên dựa vào tính ôn định của phép sắp xếp, dãy khoá thu được sẽ có 


thứ tự tăng dàn về giá trị tạo thành bởi cả ba chữ số, đó là dãy khoá đã sắp. 

Nhận xét: 

Ta hoàn toàn có thể coi số chữ số của mỗi khoá là bằng nhau, như ví dụ trên nếu có số 15 
trong dãy khoá thì ta có thể coi nó là 015. 

Cũng từ ví dụ, ta có thê thấy rằng số lượt thao tác sắp xếp phải áp dụng đúng bằng số chữ số 
tạo thành một khoá. Với một hệ cơ số lớn, biểu diễn một giá trị khoá sẽ phải dùng ít chữ số 
hơn. Ví dụ số 12345 trong hệ thập phân phải dùng tới 5 chữ số, còn trong hệ cơ số 1000 chỉ 
cần dùng 2 chữ số AB mà thôi, ở đây A là chữ số mang giá trị 12 còn B là chữ số mang giá trị 
345. 

Tốc độ của sắp xếp cơ số trực tiếp phụ thuộc rất nhiều vào thuật toán sắp xếp ôn định tại mỗi 
bước. Không có một lựa chọn nào khác tốt hơn phép đếm phân phối. Tuy nhiên, phép đếm 
phân phối có thể không cài đặt được hoặc kém hiệu quả nếu như tập giá trị khoá quá rộng, 
không cho phép dựng ra dãy các biến đếm hoặc phải sử dụng dãy biến đếm quá dài (Điều này 
xảy ra nếu chọn hệ cơ số quá lớn). 

Một lựa chọn khôn ngoan là nên chọn hệ cơ số thích hợp cho từng trường hợp cụ thê để dung 
hoà tới mức tối ưu nhất ba mục tiêu: 

Việc lấy ra một chữ số của một số được thực hiện dễ dàng 

Sử dụng ít lần gọi phép đếm phân phối. 

Phép đếm phân phối thực hiện nhanh 
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procedure StraightRadixSort; 
const 
radix = .; {Tuy chọn hệ cơ sô radix cho hợp lý) 
var 
t: TArray; (Dãy khoá phy} 
p: Integer; 
nDigit: Integer; (Số chữ số cho một khoá, đánh số từ chữ số thứ 0 là hàng đơn vị đến chữ số thứ nDigit - 1} 
Flag: Boolean; {Flag = True thì sắp dãy k, ghi kết quả vào dãy t; Flag = False thì sắp dãy t, ghi kq vào k} 


function GetDigit(Num: TKey; p: Integer): Integer; (Lấy chữ số thứ p của số Num (0<p<nDigit) } 
begin 

GetDigit := Num div radix? mod radix; (Trường hợp cụ thể có thể có cách viết tốt hon} 
end; 


{Sáp xếp ôn định dãy số x theo thú tự tăng dàn của chữ số thứ p, kết quả sắp xếp được chứa vào dãy số y} 
procedure DCount (var x, y: TArray; p: Integer); (Thuật toán đếm phân phối, sắp từ x sang y} 
var 
c: array[0..radix - 1] of Integer; {ca là số lần xuất hiện chữ số d tại vị trí p} 
i, d: Integer; 
begin 
for d := 0 to radix - 1 do cạ := 0; 
for i := 1 to n do 
begin 
d := GetDigit(xi, p); Ca := Ca † 1; 
end; 
for d := 1 to radix - 1 do Ca := cạ+ + Ca; (các ca trở thành các mốc cuối đoạn} 
for i := n downto 1 do (Điển giá trị vào dãy y} 
begin 
d := 6etDigit(x;, p); 
Yo $5 Xi; Ca i= Cá - 1; 
end; 
end; 


begin (Thuật toán sắp xếp cơ số trục tiếp) 
<Dựa vào giá trị lớn nhât trong dãy khoá, 
xác định nDigit là sô chữ sô phải dùng cho môi khoá trong hệ radix>; 


Flag := True; 
for p := 0 to nDigit - 1 do {Xét tù chữ số hàng đơn vị lên, sắp xếp ôn định theo chữ số thú p} 
begin 


if Flag then DCount(k, t, p) else DCount(t, k, p); 
Flag := not Flag; (Đảo cờ, dùng k tính t rồi lại dùng t tính k .} 
end; 
if not Flag then k := t; (Nếu kết quả cuối cùng đang ở trong t thì sao chép giá trị từ t sang k} 
end; 


Xét phép đêm phân phôi, ta đã biết độ phức tạp của nó là O(max(radix, n)). Mà radix là một 
hằng số tự ta chọn từ trước, nên khi n lớn, độ phức tạp của phép đếm phân phối là O(n). Thuật 
toán sử dụng nDigit lần phép đếm phân phối nên có thê thấy độ phức tạp của thuật toán là 
O(n.nDigit) bất kế d liệu đầu vào. 

Ta có thể coi sắp xếp cơ số trực tiếp là một mở rộng của phép đếm phân phối, khi dãy số chỉ 
toàn các số có 1 chữ số (trong hệ radix) thì đó chính là phép đếm phân phối. Sự khác biệt ở 
đây là: Sắp xếp cơ số trực tiếp có thể thực hiện với các khoá mang giá trị lớn; còn phép đếm 
phân phối chỉ có thể làm trong trường hợp các khoá mang giá trị nhỏ, bởi nó cần một lượng 


bộ nhớ đủ rộng đê giăng ra dãy biên đêm sô lân xuât hiện cho từng giá trị. 
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8.11. THUẬT TOÁN SÁP XÉP TRỘN (MERGESORT) 


8.11.1. Phép trộn 2 đường 

Phép trộn 2 đường là phép hợp nhất hai dãy khoá đã sắp xếp để ghép lại thành một dãy khoá 
có kích thước bằng tổng kích thước của hai dãy khoá ban đầu và dãy khoá tạo thành cũng có 
thứ tự sắp xếp. Nguyên tắc thực hiện của nó khá đơn giản: so sánh hai khoá đứng đầu hai dãy, 
chọn ra khoá nhỏ nhất và đưa nó vào miền sắp xếp (một dãy khoá phụ có kích thước bằng 
tổng kích thước hai dãy khoá ban đầu) ở vị trí thích hợp. Sau đó, khoá này bị loại ra khỏi dãy 
khoá chứa nó. Quá trình tiếp tục cho tới khi một trong hai dãy khoá đã cạn, khi đó chỉ cần 
chuyền toàn bộ dãy khoá còn lại ra miền sắp xếp là xong. 


Ví dụ: Với hai dãy khoá: (1, 3, 10, 11) và (2, 4, 9) 


Dër 1 Dãy 2 Khoá nhỏ nhât trong 2 dãy Miễn sắp xếp 

(1, 3, 10, 11) (2, 4, 9) 1 (1 

(, 10, 11) (2, 4, 9) 2 (1, 2) 

(3, 10, 11) (4, 3) 3 (1, 2, 3) 

(10, 11) (4, 9) 4 (1, 2, 3, 4) 

(10, 11) (9) 9 (1, 2, 3, 4, 9) 

(10, 11) Ø Dãy 2 là Ø, đưa nốt dãy 1 vào mièn sắp | (1, 2, 3, 4, 9, 10, 11) 
xêp 


8.11.2. Sắp xếp bằng trộn 2 đường trực tiếp 

Ta có thể coi mỗi khoá trong dãy khoá kı, k2, ..., Kn là một mạch với độ dài 1, dĩ nhiên các 
mạch độ dài 1 có thể coi là đã được sắp. Nếu trộn hai mạch liên tiếp lại thành một mạch có độ 
đài 2, ta lại được dãy gồm các mạch đã được sắp. Cứ tiếp tục như vậy, số mạch trong dãy sẽ 
giảm dần sau mỗi lần trộn (Hình 35) 
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Hình 35: Thuật toán sắp xếp trộn 
Đề tiến hành thuật toán sắp xếp trộn hai đường trực tiếp, ta viết các thủ tục: 
Thủ tục Merge(var x, y: TArray; a, b, c: Integer); thủ tục này trộn mạch xạ, Xa, ..., Xp VỚI 


mạch Xp+1, Xb+2 ..., Xe đê được mạch Ya, Yari, ..., Yo- 
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Thủ tục MergeByLength(var x, y: TArray; len: Integer); thủ tục này trộn lần lượt các cặp 
mạch theo thứ tự: 
Trộn mạch xị...Xien VÀ XIen+i...X2len thành mạch y)... V2Ien. 


Trộn mạch X2len+l - - -X3len và X3len+1 ---Ã4len thành mạch Y2len+l - - - Ÿ4len- 


Lưu ý rằng đến cuối cùng ta có thê gặp hai trường hợp: Hoặc còn lại hai mạch mà mạch thứ hai 
có độ dài < len. Hoặc chỉ còn lại một mạch. Trường hợp thứ nhất ta phải quản lý chính xác các 
chỉ số dê thực hiện phép trộn, còn trường hợp thứ hai thì không được quên thao tác đưa thăng 
mạch duy nhất còn lại sang dãy y. 
Cuối cùng là thủ tục MergeSort, thủ tục này cần một dãy khoá phụ tị, t2, ..., tn. Trước hết ta 
gọi MergeByLength(k, t, 1) để trộn hai phần tử liên tiếp của k thành một mạch trong t, sau đó 
lại gọi MergeByLength(t, k, 2) để trộn hai mạch liên tiếp trong t thành một mạch trong k, rồi 
lại gọi MergeByLength(k, t, 4) để trộn hai mạch liên tiếp trong k thành một mạch trong 
t ...Như vậy k và t được sử dụng với vai trò luân phiên: một dãy chứa các mạch và một dãy 


dùng để trộn các cặp mạch liên tiếp để được mạch lớn hơn. 
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procedure MergeSort; 
Var 
t: TArray; (Dãy khoá phụ) 
len: Integer; 
Flag: Boolean; {Flag = True: trộn các mạch trong k vào t; Flag = False: trộn các mạch trong t vào k} 


procedure Merge(var X, Y: TArray; a, b, c: Integer);{Trôn X,.X; và KA. 
var 
i, j, p: Integer; 
begin 
{Chi số p chạy trong mièn sắp xếp, i chạy theo mạch thứ nhất, j chạy theo mạch thứ hai} 
p :=a; i:Za; ]:=b†+1; 
while D < b) and (j < c) then {Chùng nào cả hai mạch đều chua xét hết) 


begin 
if X; < Xj then {So sánh hai phần tử nhỏ nhất trong hai mạch mà chưa bị đưa vào mièn sắp xếp) 
begin 
Yp := X; i :=i + 1; (Đua x; vào mièn sắp xếp và cho i chạy} 
end 
else 
begin 
Y, := Xj; j := j +1; (Đưa x; vào mièn sấp xếp và cho j chạy] 
end; 
P:ZP†l; 
end; 
if i <b then (Yp, Be, Yc) := (Xi, Xa, ., X) (Mạch 2 hết trước, Đưa phàn cuối của mạch 1 vào mién sắp xếp) 
else (Yp, Yp, ., YC) e (Xj, Xa, ., Xe); (Mạch 1 hệt trước, Đưa phân cuỗi của mạch 2 vào miền sắp xếp} 


end; 


procedure MergeByLength (var X, Y: TArray; len: Integer); 
begin 
a := 1; b := len; c := 2 * len; 
while c < n do (Trộn hai mạch x„.x; và x;,;.x, đều có độ dài len} 
begin 
Merge(X, Y, a, b, c); 
a:=a+†+2*+ len;b:=b+†+2* len;c :=cœ+ 2 * len; (Dịch các chỉ sô a, b, c về sau 2.len vị trí} 
end; 
if b < n then Merge(X, Y, a, b, n) {Còn lại hai mạch mà mạch thứ hai có độ dài ngắn hơn len) 
else 
if a <n then (Ya, Yai, .. Ya) := (Xa, Be =, Xa); (Còn lại một mạch thì đưa thẳng mạch đó sang mièn y} 
end; 


begin (Thuật toán sắp xếp trộn] 
Flag := True; 
len := 1; 
while len < n do 
begin 
if Flag then MergeByLength(k, t, len) else MergeByLength(t, k, len); 
len := len * 2; 
Flag := not Flag; (Đảo cờ để luân phiên vai trò của k và t} 
end; 
if not Flag then k := t; (Nếu kết quả cuối cùng đang nằm trong t thì sao chép kết quả vào k} 
end; 


Về độ phức tạp của thuật toán, ta thấy rằng trong thủ tục Merge, phép toán tích cực là thao tác 
đưa một khoá vào miền sắp xếp. Mỗi lần gọi thủ tục MergeByLength, tất cả các phần tử trong 
dãy khoá được chuyển hoàn toàn sang miền sắp xếp, nên độ phức tạp của thủ tục 
MergeByLength là O(n). Thủ tục MergeSort có vòng lặp thực hiện không quá log2n + 1 lời 
gọi MergeByLength bởi biến len sẽ được tăng theo cấp số nhân công bội 2. Từ đó suy ra độ 


phức tạp của MergeSort là O(nlogan) bất chấp trạng thái dř liệu vào. 
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Cùng là những thuật toán sắp xếp tông quát với độ phức tạp trung bình như nhau, nhưng 
không giống như QuickSort hay HeapSort, MergeSort có tính An định. Nhược điểm của 
MergeSort là nó phải dùng thêm một vùng nhớ đề chứa dãy khoá phụ có kích thước bằng dãy 
khoá ban đầu. 

Người ta còn có thê lợi dụng được trạng thái dữ liệu vào để khiến MergeSort chạy nhanh hơn: 
ngay từ đầu, ta không coi mỗi phần tử của dãy khoá là một mạch mà coi những đoạn đã được 
sắp trong dãy khoá là một mạch. Bởi một dãy khoá bất kỳ có thê coi là gồm các mạch đã sắp 
xếp nằm liên tiếp nhau. Khi đó người ta gọi phương pháp này là phương pháp trộn hai 
đường tự nhiên. 

Tổng quát hơn nữa, thay vì phép trộn hai mạch, người ta có thê sử dụng phép trộn k mạch, khi 


đó ta được thuật toán sắp xếp trộn k đường. 
8.12. CÀI ĐẶT 


Ta sẽ cài đặt tất cả các thuật toán sắp xếp nêu trên, với dữ liệu vào được đặt trong file văn bản 
SORT.INP chứa không nhiều hơn 15000 khoá và giá trị mỗi khoá là số tự nhiên không quá 
15000. Kết quả được ghi ra file văn bản SORT.OUT chứa dãy khoá được sắp, mỗi khoá trên 
một dòng. 


50RT.INP || 50RT.OUT 
14325 
7198 
10 6 


` vn CO JA On LD vs GA R2 rä 


0 
Chương trình có giao điện dưới dạng menu, mỗi chức năng tương ứng với một thuật toán sắp 


xếp. Tại mỗi thuật toán sắp xếp, ta thêm một vài lệnh đo thời gian thực tế của nó (chỉ đo thời 
gian thực hiện giải thuật, không tính thời gian nhập liệu và in kết quả). 

Ở thuật toán sắp xếp bằng cơ số theo cách hoán VỊ phần tử, ta chọn hệ nhị phân. Ở thuật toán 
sắp xếp bằng cơ số trực tiếp, ta sử dụng hệ cơ số 256, khi đó một giá trị số tự nhiên x < 15000 
sẽ được biểu diễn bằng hai chữ số trong hệ 256: 

Chữ số hàng đơn vị là x mod 256 = x mod 2Ÿ = x and 255 = x and $FF; 


Chữ số còn lại (= chữ số ở hàng cao nhất) là x div 256 = x div 2Ÿ = x shr 8; 


(§M 65520 0 655360) 
program SortingA1gorithmsDemo ; 
uses crt; 
const 
InputFile = 'SORT.INP'; 
OutputFile = 'SORT.OUT'; 
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max = 15000; 
maxV = 15000; 
Interval = 1193180 / 65536; (Tần số đồng hồ x 18.2 lần / giây) 
nMenu = 12; 
SMenu: array[0..nMenu] of String = 
( 
. Display Input', 
. SelectionSort', 
. BubbleSort', 
. Insertion§ort', 
. InsertionSort with binary searching', 
. Shell§ort', 
. Quick§ort', 
. HeapSort', 
. Distribution Counting', 
. Exchange Radix§ort', 
. Straight RadixSort', 
11. MergeSort', 
' 12. Bxit' 

Ir 
type 

TArr = array[l..max] of Integer; 

TCount = array[0..maxV] of Integer; 
Var 

k: TArr; 

n: Integer; 

selected: Integer; 

StTime: LongInt; 

Time: LongInt absolute 0:$46C; (Biến đếm nhịp đồng hồ) 


CO —1 On CI vs C2 2 FA CC 
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procedure Enter; (Trước mỗi thuật toán sắp xếp, gọi thủ tục này để nhập liệu) 
var 
f: Text; 
begin 
Assign(f, InputFile); Reset(f) ; 
n := 0; 
while not SeekEof (f) do 
begin 
Inc(n); Read(f, k[n]); 
end; 
Close (f); 
StTime := Time; (Nhập xong bắt đầu tính thời gian ngay} 
end; 


procedure PrintInput; {In dữ liệu) 

var 
i: Integer; 

begin 
Enter; 
for i := 1 to n do Write (k[i]:8) ; 
Write('Press any key to return to menu..'); 
ReadKey 

end; 


procedure PrintResult; (In kết quả của mỗi thuật toán sắp xếp] 
var 
f: Text; 
i: Integer; 
ch: Char; 
begin 
{Truóc hết in ra thời gian thực thi} 
WriteLn ('Running Time = ', (Time - §tTime) / Interval:1:10, ' (s)'); 
Assign (f, O0utputFile); Rewrite (f); 
for i := 1 to n do Writeln(f, k[i]); 
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Close (f); 
Write('Press <P> to print Output, another key to return to menu..') ; 
ch := ReadKey; WriteLn (ch) ; 
1f Upcase(ch) = 'P' then 
begin 
for i := 1 to n do Write (k[i]:8) ; 
WriteLn; 
Write('Press any key to return to menu..'); 
ReadKey; 
end; 
end; 


procedure Swap(var x, y: Integer); (Thủ tục đảo giá trị hai tham bién x, y} 


var 
t: Integer; 
begin 
t:=x;x:=y; y: =t; 
end; 


Ir SELECTIONSORT tttttttttttttttktt tt t$ kế tÈtÈ tk tk tt tt K ) 


procedure §electionSort; 


var 
i, j, jmin: Integer; 
begin 
Enter; 
for i :=1 ton- 1 do 
begin 
jmin := i; 
for j := i +1 tondo 
if k[j] < k[jmin] then jmin := j; 
if jmin <> i then Swap(k[i], k[jmin]); 
end; 
PrintResult; 
end; 


Ir BUBBLESORT Made 


procedure BubbleSort; 
Var 
i, j: Integer; 
begin 
Enter; 
for i := 2 to n do 
for j := n downto i do 
if k[j - 1] > k[j] then Swap(k[j - 1], k[j]); 
PrintResult; 
end; 


(** INSERTTONSORT *#*########ttttttttt#ktkk# A KEK K K tế tÝ AKK tt tt KK K ) 


procedure InsertionSort; 
var 
i, j, tmp: Integer; 
begin 
Enter; 
for i := 2 to n do 
begin 
tmp := k[i]; j := i - 1; 
while (j > 0) and (tmp < k[j]) do 
begin 
k[j + 1] := k[j]; 
Dec (3) ; 
end; 
k[j + 1] := tmp; 
end; 
PrintResult; 
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end; 


(** INSERTIONSORT WITH BINARY SEARCHING ***‡*‡+t+t+t+t+t+t+tktktkt*+) 


procedure AdvancedInsertionSort; 
var 
i, inf, sup, median, tmp: Integer; 


begin 
Enter; 
for i := 2 to n do 
begin 
tmp := k[i]; 
inf := 1; sup := i - 1; 
repeat 


median := (inf + sup) shr 1; 


if tmp < k[median] then sup := median - 1 


else inf := median + 1; 
until inf > sup; 


Move (k[inf], k[inf + 1], (i - inf) * Size0f(k[1])); 


k[inf] := tmp; 
end; 
PrintResult; 
end; 


Ir SHELLSORT e k e e E tt tt e e *‡ tt t kÝ tt e e e tt t e kế tÝ K kế e e e tt K ) 


procedure ShellSort; 
var 

tmp: Integer; 

i, j, h: Integer; 
begin 

Enter; 

h := n shr 1; 

while h <> 0 do 

begin 
for i :=h +1 ton do 
begin 
tmp := k[i]; j := i - h; 


while (j > 0) and (k[j] > tmp) do 


begin 
k[j +h] := k[j]; 
j:=j-h; 

end; 

k[j + h] := tmp; 
end; 
h := h shr 1; 
end; 
PrintResult; 
end; 


Ir QUICKSORT e k e e E E e tt e e X‡ tt tÝ XÝ tt e e e de e e e tÝ kế tÝ kế tt t tt tt K ) 


procedure QuickSort; 


procedure Partition(L, H: Integer); 
var 
i, j: Integer; 
Pivot: Integer; 
begin 
if L >= H then Exit; 
Pivot := k[L + Random(H - L + 1)]; 
i := L; j:=H; 
repeat 
while k[i] < Pivot do Inc(i); 
while k[j] > Pivot do Dec (J) ; 
if i <= j then 
begin 
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if i < j then Swap(k[i], k[j]); 
Inc(i); Dec(j); 
end; 
until i > j; 
Partition(L, j); Partition (i, H); 
end; 


begin 
Enter; 
Partition(1, n); 
PrintResult; 
end; 


Ir HEAPSORT +tt#ttt#tttttttttk#t tt hh tk tt tt tt kế tÈ tt At) 


procedure ReapSort; 
var 
r, i: Integer; 


procedure Adjust (root, endnode: Integer); 


var 
key, c: Integer; 
begin 
key := k[root]; 
while root shl 1 <= endnode do 
begin 
c := root shl 1; 


if (c < endnode) and (k[c] < k[c + 1]) then Inc(c); 


if k[c] <= key then Break; 
k[root] := k[c]; root := c; 
end; 
k[root] := key; 
end; 


begin 
Enter; 


for r := n shr 1 downto 1 do Adjust(r, n); 


for i := n downto 2 do 
begin 
Swap (k[1], k[i]); 
Adjust (1, i - 1); 
end; 
PrintResult; 
end; 


(** DISTRIBUTION COUNTING EE tt ##X### kÝ A E KÝ tk kk tk tÝ tt t# ) 


procedure DistributionCounting; 
var 

x: TArr; 

c: TCount; 

i, V: Integer; 
begin 

Enter; 

FillChar (c, Size0f (c), 0); 

for i := 1 to n do Inc(c[k[i]]); 


for V := 1 to MaxV do c[V] := c[V - 1] + c[V]; 


for i := n downto 1 do 
begin 
V := k[i]; 
x[c[V]] := k[i]; 
Dec (e[V]) ; 
end; 
k := x; 
PrintResult; 
end; 
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(** EXCHANGE RADIXSORT ######t#ttttt#tt#ttkk#t#kÝ K tế t tÝ tt tt tt tk tk K ) 


procedure RadixSort; 

const 
MaxBit = 13; 

var 
MaskBit: array[0..MaxBit] of Integer; 
MaxValue, i: Integer; 


procedure Partition(L, H, BIndex: Integer); 
var 
i, j, Mask: Integer; 
begin 
if L >= H then Exit; 
i := L; j := H; Mask := MaskBit[BTndex]; 
repeat 


while (i < j) and (k[i] and Mask = 0) do Inc(i); 
while (i < j) and (k[j] and Mask <> 0) do Dec (J) ; 


Swap(k[i], k[j]); 
until i = j; 
if k[j] and Mask = 0 then Inc(j); 
if BIndex > 0 then 

begin 


Partition(L, j - 1, BIndex - 1); Partition(j, H, BIndex - 1); 


end; 
end; 


begin 
Enter; 


for i := 0 to MaxBit do MaskBit[i] := 1 shl i; 


maxValue := k[1]; 
for i := 2 to n do 

if k[i] > MaxValue then maxValue := k[i]; 
i :=0; 


while (i < MaxBit) and (MaskBit[i + 1] <= MaxValue) do Inc(i); 


Partition(1, n, i); 
PrintResult; 
end; 


(** STRAIGHT RADIXSORT %9 A k A F E AA ERA A HEK A KEK K tế tế tÝ t tt tt KK KK K ) 


procedure StraightRadixSort; 


const 
Radix = 256; 
nDigit = 2; 
var 
t: TArr; 
p: Integer; 


Flag: Boolean; 


function GetDigit(key, p: Integer): Integer; 
begin 
if p = 0 then GetDigit := key and $FF 
else GetDigit := key shr 8; 
end; 


procedure DCount (var x, y: TArr; p: Integer); 
var 

c: array[0..Radix - 1] of Integer; 

i, d: Integer; 
begin 

FillChar (c, Size0f (c), 0); 

for i := 1 to n do 

begin 
d := GetDigit(x[i], p); Inc(c[d]); 
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end; 
for d := 1 to Radix - 1 do c[d] := c[d - 1] + c[d]; 
for i := n downto 1 do 

begin 


d := GetDigit(x[i], p); 
y[e[d]] := x[i]; 


Dec (e[d] ) ; 
end; 
end; 
begin 
Enter; 
Flag := True; 
for p := 0 to nDigit - 1 do 
begin 


if Flag then DCount(k, t, p) 
else DCount(t, k, p); 
Flag := not Flag; 
end; 
if not Flag then k := t; 
PrintResult; 
end; 


Ir MERGESORT tttttt#ttt#tttttttt tt tt e e €* KÝ tÈ tt tt #È tt kế tk tắ tt K ) 


procedure MergeSort; 
var 
t: TArr; 
Flag: Boolean; 
len: Integer; 


procedure Merge (var Source, Dest: TArr; a, b, c: Integer); 
var 

i, j, p: Integer; 
begin 

p :=a; i :=a;j:=b+1; 

while (i <= b) and (j <= c) do 


begin 
if Source[i] <= Source[j] then 
begin 
Dest[p] := Source[i]; Inc(i); 
end 
else 
begin 
Dest[p] := Source[j]; Inc(j); 
end; 
Inc (p); 
end; 
if i <= b then 
Move (Source[i], Dest[p], (b - i + 1) * Size0f(Source[1])) 
else 
Move (Source[j], Dest[p], (c - j + 1) * Size0f(Source[1])); 
end; 


procedure MergeByLength(var Source, Dest: TArr; len: Integer); 
var 
a, b, c: Integer; 
begin 
a := 1; b := len; c := len shl 1; 
while c <= n do 
begin 
Merge (Source, Dest, a, b, c); 
a :=a + len shl 1; b := b + len shl 1; c := c + len shl 1; 
end; 
if b < n then Merge (Source, Dest, a, b, n) 
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else 
Move (Source[a], Dest[a], (n - a + 1) * §ize0f(Source[1])) ; 
end; 


begin 
Enter; 
len := 1; Flag := True; 
FillChar(t, Size0f (t), 0); 
while len < n do 
begin 
if Flag then MergeByLength(k, t, len) 
else MergeByLength(t, k, len); 
len := len shl 1; 
Flag := not Flag; 
end; 
if not Flag then k := t; 
PrintResult; 


end; 
(k e k e e A hh hh e e e de hh E E e e e de e e tt K K R k k tt k k ) 


function MenuSelect: Integer; 
var 
ch: Integer; 
begin 
Clrscr; 
WriteLn ('Sorting Algorithms Demos; Input: SORT.TNP; Output: SORT.OUT') ; 
for ch := 0 to nMenu do WriteLn (SMenu[ch]) ; 
Write('Enter your choice: '); Readrn (ch) ; 
MenuSelect := ch; 
end; 


begin 
repeat 
selected := MenuSelect; 
WriteLn (SMenu [selected] ) ; 
case selected of 
0: PrintInput; 
: 9election§ort; 
` BubbleSort; 
: Insertion§ort; 
` AdvancedTInsertion§ort; 
` Shell§ort; 
` 0uick§ort; 
` ReapSort; 
` DistributionCounting; 
9: RadixSort; 
10: §traightRadixSort; 
11: MergeSort; 
12: Halt; 
end; 
until False; 
end. 


CO —1 On CỚI vs GA 2 Fäi 


8.13. ĐÁNH GIÁ, NHẬN XÉT 


Những con số về thời gian và tốc độ chương trình đo được là qua thử nghiệm trên một bộ dữ 
liệu cụ thể, với một máy tính cụ thể và một công cụ lập trình cụ thể. Với bộ dữ liệu khác, máy 
tính và công cụ lập trình khác, kết quả có thể khác. Tuy vậy, việc đo thời gian thực thi của 
từng thuật toán sắp xếp vẫn cần thiết nếu ta muốn so sánh tốc độ của các thuật toán cùng cấp 


phức tạp bởi các tính toán trên lý thuyết đôi khi bị lệch so với thực tế vì nhiều lý do khác nhau. 
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Có một vấn đề đặt ra là ngoài những thuật toán sắp xếp cáp O(n’), rất khó có thể đo được tốc 
độ trung bình của những thuật toán sắp xếp còn lại khi mà chúng đều chạy không tới một nhịp 
đồng hò thời gian thực (đều cho thời gian chạy bằng 0 do không kịp đo thời gian). Một cách 
giải quyết là cho mỗi thuật toán QuickSort, RadixSort, ... thực hiện c lần (c là một số nguyên 
đủ lớn) trên các bộ dữ liệu ngẫu nhiên rồi láy thời gian tông chia cho c, hay có thê tăng kích 
thước dữ liệu (điều này có thể dẫn đến việc phải sửa lại một vài chỗ trong chương trình hoặc 
thậm chí phải thay đổi môi trường lập trình). 

Tôi đã viết lại chương trình này trên Borland Delphi để đưa vào một số cải tiến: 

e Có thể chạy với kích thước đữ liệu lớn hơn rất nhiều (hàng triệu khóa) 

e Thiết kế dựa trên kiến trúc đa luồng (MultiThreads) cho phép chạy đồng thời (KWD) 
hai hay nhiều thuật toán sắp xếp đề so sánh tốc độ, hiên thị quá trình sắp xếp trực quan 
trên màn hình. 

e Cũng cho phép chạy tuần tự (43⁄4) các thuật toán sắp xếp để đo thời gian thực hiện 
chính xác của chúng. 

Chú ý: Để chương trình không bị ảnh hưởng bởi các phần mềm khác đang chạy, khi bám ¿ai 
hoặc è] khởi động các threads, bàn phím, chuột và tất cả các phần mềm khác sẽ bị treo tạm 
thời đến khi các threads thực hiện xong. Vì vậy không nên chạy các thuật toán sắp xếp chậm 
với d liệu lớn, sẽ không thê đợi đến khi các threads kết thúc và sẽ phải tắt máy khởi động lại. 
Hình 36 là giao diện của chương trình, bạn có thể tham khảo mã nguồn chương trình kèm 


theo: 
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Hình 36: Cài đặt các thuật toán sắp xếp với dữ liệu lớn 


Cùng một mục đích sắp xếp như nhau, nhưng có nhiều phương pháp giải quyết khác nhau. 
Nếu chỉ dựa vào thời gian đo được trong một ví dụ cụ thể mà đánh giá thuật toán này tốt hơn 
thuật toán kia về mọi mặt là điều không nên. Việc chọn một thuật toán sắp xếp thích hợp cho 
phù hợp với từng yêu cầu, từng điều kiện cụ thê là kỹ năng của người lập trình. 

Những thuật toán có độ phức tạp O(n') thì chỉ nên áp dụng trong chương trình có ít lần sắp 
xếp và với kích thước n nhỏ. Về tốc độ, BubbleSort luôn luôn đứng bét, nhưng mã lệnh của 
nó lại hết sức đơn giản mà người mới học lập trình nào cũng có thể cài đặt được, tính ôn định 
của BubbleSort cũng rất đáng chú ý. Trong những thuật toán có độ phức tạp OC) 
InsertionSort tỏ ra nhanh hơn những phương pháp còn lại và cũng có tính ôn định, mã lệnh 
cũng tương đối đơn giản, dễ nhớ. SelectionSort thì không ồn định nhưng với n nhỏ, việc chọn 
ra m phần tử nhỏ nhất có thê thực hiện dë dàng chứ không cần phải sắp xếp lại toàn bộ như 
sắp xếp chẻn. 

Thuật toán đếm phân phối và thuật toán sắp xếp bằng cơ số nên được tận dụng trong trường 
hợp các khoá sắp xếp là số tự nhiên (hay là một kiểu đữ liệu có thể quy ra thành các số tự 
nhiên) bởi những thuật toán này có tốc độ rất cao. Thuật toán sắp xếp bằng cơ số cũng có thể 
sắp xếp dãy khoá có số thực hay số âm nhưng ta phải biết được cách thức lưu trữ các kiểu dữ 
liệu đó trên máy tính thì mới có thê làm được. 

QuickSort, HeapSort, MergeSort và ShellSort là những thuật toán sắp xếp tông quát, dãy khoá 


thuộc kiểu đữ liệu có thứ tự nào cũng có thê áp dụng được chứ không nhất thiết phải là các số. 
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QuickSort gặp nhược điểm trong trường hợp suy biến nhưng xác suất xảy ra trường hợp này 
rất nhỏ. HeapSort thì mã lệnh hơi phức tạp và khó nhớ, nhưng nếu cần chọn ra m phần tử lớn 
nhất trong dãy khoá thì dùng HeapSort sẽ không phải sắp xếp lại toàn bộ dãy. MergeSort phải 
đòi hỏi thêm một không gian nhớ phụ, nên áp dụng nó trong trường hợp sắp xếp trên file. Còn 
ShellSort thì hơi khó trong việc đánh giá về thời gian thực thi, nó là sửa đổi của thuật toán sắp 
xếp chèn nhưng lại có tốc độ tốt, mã lệnh đơn giản và lượng bộ nhớ cần huy động rất ít. Tuy 
nhiên, những nhược điểm của bốn phương pháp này quá nhỏ so với ưu điểm chung của chúng 
là nhanh. Hơn nữa, chúng được đánh giá cao không chỉ vì tính tổng quát và tốc độ nhanh, mà 
còn là kết quả của những cách tiếp cận khoa học đối với bài toán sắp xếp. 

Những thuật toán trên không chỉ đơn thuần là cho ta hiểu thêm về một cách sắp xếp mới, mà 
kỹ thuật cài đặt chúng (với mã lệnh tối ưu) cũng dạy cho chúng ta nhiều điều: Kỹ thuật sử 
dụng số ngẫu nhiên, kỹ thuật "chia để trị", kỹ thuật dùng các biến với vai trò luân phiên 
v.v... Vậy nên nắm vững nội dung của những thuật toán đó, mà cách thuộc tốt nhất chính là 
cài đặt chúng vài lần với các ràng buộc dữ liệu khác nhau (nếu có thể thử được trên hai ngôn 
ngữ lập trình thì rất tốt) và cũng đừng quên kỹ thuật sắp xếp băng chỉ số. 

Bài tập 

Bài 1 

Viết thuật toán QuickSort không đệ quy 

Bài 2 

Hãy viết những thuật toán sắp xếp nêu trên với danh sách những xâu ký tự gồm 3 chữ cái 
thường, để sắp xếp chúng theo thứ tự từ điền. 

Bài 3 

Hãy viết lại tất cả những thuật toán nêu trên với phương pháp sắp xếp bằng chỉ số trên một 
dãy số cần sắp không tăng (giảm dần). 

Bài 5 

Cho một danh sách thí sinh gồm n người, mỗi người cho biết tên và điểm thi, hãy chọn ra m 
người điểm cao nhất. Giải quyết bằng thuật toán có độ phức tạp tính toán trung bình O(n) 

Bài 6 

Thuật toán sắp xếp bằng cơ số trực tiếp có ôn định không ? Tại sao ? 

Bài 7 

Cài đặt thuật toán sắp xếp trộn hai đường tự nhiên 

Bài 8 

Tìm hiểu phép trộn k đường và các phương pháp sắp xếp ngoài (trên tệp truy nhập tuần tự và 


tệp truy nhập ngẫu nhiên) 
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§9. TÌM KIÊM (SEARCHING) 


9.1. BÀI TOÁN TÌM KIEM 


Cùng với sắp xếp, tìm kiếm là một đòi hỏi rất thường xuyên trong các ứng dụng tin học. Bài 
toán tìm kiếm có thể phát biêu như sau: 

Cho một dãy gồm n bản ghi rị, r2, ..., rạ. Mỗi bản ghi ri (1 < i < n) tương ứng với một khoá ki. 
Hãy tìm bản ghi có giá trị khoá bằng X cho trước. 

X được gọi là khoá tìm kiếm hay đối trị tìm kiếm (argument). 

Công việc tìm kiếm sẽ hoàn thành nếu như có một trong hai tình huống sau xảy ra: 

Tìm được bản ghi có khoá tương ứng bằng X, lúc đó phép tìm kiếm thành công (successful). 
Không tìm được bản ghi nào có khoá tìm kiếm bằng X cả, phép tìm kiếm thất bại 
(unsuccessful). 

Tương tự như sắp xếp, ta coi khoá của một bản ghi là đại diện cho bản ghi đó. Và trong một 


số thuật toán sẽ trình bày đưới đây, ta coi kiểu dữ liệu cho mỗi khoá cũng có tên gọi là TKey. 


const 

nes .; (Số khoá trong dãy khoá, có thê khai dưới dạng biến số nguyên để tuỳ biến hon} 
type 

TKey = .; (Kiểu dữ liệu một khoá} 

TArray = array[l..n] of TKey; 
var 


k: TArray; {Dãy khoá} 
9.2. TÌM KIÉÊM TUẦN TỰ (SEQUENTIAL SEARCH) 
Tìm kiếm tuần tự là một kỹ thuật tìm kiếm đơn giản. Nội dung của nó như sau: Bắt đầu từ bản 
ghi đầu tiên, lần lượt so sánh khoá tìm kiếm với khoá tương ứng của các bản ghi trong danh 


sách, cho tới khi tìm thấy bản ghi mong muốn hoặc đã duyệt hết danh sách mà chưa thấy 


{Tìm kiếm tuần tự trên dãy khoá Kı, kz ., kạ; hàm này thủ tìm xem trong dãy có khoá nào = X không, néu thấy nó trả về chỉ 
số của khoá ấy, nếu không thấy nó trả về 0. Có sử dụng một khoá phụ kwı được gán giá trị = X} 
function SequentialSearch(X: TKey): Integer; 


var 
i: Integer; 
begin 
1 :=1; 


while (i <= n) and (k; + X) do i :=i+1; 
if i =n + 1 then SequentialSearch := 0 
else SequentialSearch := i; 

end; 


Dễ thây răng độ phức tạp của thuật toán tìm kiêm tuân tự trong trường hợp tốt nhất là O(1), 
trong trường hợp xấu nhất là O(n) và trong trường hợp trung bình cũng là O(n). 


9.3. TÌM KIỄM NHỊ PHÂN (BINARY SEARCH) 


Phép tìm kiếm nhị phân có thê áp dụng trên dãy khoá đã có thứ tự: kı < kạ<... < kn. 
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Giả sử ta cần tìm trong đoạn Kar, Ki, ..., Kan với khoá tìm kiếm là X, trước hết ta xét khoá 
nằm giữa dãy kmedian với median = (inf + sup) div 2; 

Nếu kmeaian < X thì có nghĩa là đoạn từ Kar tới Kmedian chỉ chứa toàn khoá < X, ta tién hành tìm 
kiếm tiếp với đoạn từ kmeaian +¡ tói Ksup. 

Nếu Kmedian > X thì có nghĩa là đoạn từ kmeian tới Ksup chỉ chứa toàn khoá > X, ta tién hành tìm 
kiếm tiếp với đoạn từ Kint tới Kmedian - 1. 

Nếu Kmedian = X thì việc Hm kiém thành công (két thúc quá trình tìm kiếm). 


Quá trình tìm kiếm sẽ thất bại néu đến một bước nào đó, đoạn tìm kiếm là rỗng (inf > sup). 


{Tìm kiếm nhị phân trên dãy khoá kı < k; < .. < ka; hàm này thử tìm xem trong dãy có khoá nào = X không, nếu thấy nó trả về 
chỉ số của khoá ấy, nếu không thấy nó trả về 0} 
function BinarySearch(X: TKey) ` Integer; 
var 
inf, sup, median: Integer; 
begin 
inf := 1; sup := n; 
while inf < sup do 


begin 
median := (inf + sup) div 2; 
if Knedian = X then 
begin 
BinarySearch := median; 
Exit; 
end; 


if Kata < X then inf := median + 1 
else sup := median - 1; 
end; 
BinarySearch := 0; 
end; 


Người ta đã chứng minh được độ phức tạp tính toán của thuật toán tìm kiểm nhị phân trong 
trường hợp tốt nhất là O(1), trong trường hợp xấu nhất là O(Iogan) và trong trường hợp trung 
bình cũng là O(logzn). Tuy nhiên, ta không nên quên rằng trước khi sử dụng tìm kiếm nhị 
phân, dãy khoá phải được sắp xếp rồi, tức là thời gian chi phí cho việc sắp xếp cũng phải tính 
đến. Nếu dãy khoá luôn luôn biến động bởi phép bô sung hay loại bớt đi thì lúc đó chi phí cho 


sắp xếp lại női lên rất rõ làm bộc lộ nhược điểm của phương pháp này. 
9.4. CÂY NHI PHÂN TÌM KIEM (BINARY SEARCH TREE - BST) 


Cho n khoá kı, k2, ..., Kn, trên các khoá có quan hệ thứ tự toàn phần. Cây nhị phân tìm kiếm 
ứng với dãy khoá đó là một cây nhị phân mà mỗi nút chứa giá trị một khoá trong n khoá đã 
cho, hai giá trị chứa trong hai nút bất kỳ là khác nhau. Đối với mọi nút trên cây, tính chất sau 
luôn được thoả mãn: 

e Mọi khoá nằm trong cây con trái của nút đó đều nhỏ hơn khoá ứng với nút đó. 


e Mọi khoá nằm trong cây con phải của nút đó đều lớn hơn khoá ứng với nút đó 
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Hình 37: Cây nhị phân tìm kiếm 


Thuật toán tìm kiếm trên cây có thể mô tả chung như sau: 

Trước hết, khoá tìm kiếm X được so sánh với khoá ở gốc cây, và 4 tình huống có thể xảy ra: 
Không có gốc (cây rỗng): X không có trên cây, phép tìm kiếm thất bại 

X trùng với khoá ở gốc: Phép tìm kiếm thành công 

X nhỏ hơn khoá ở gốc, phép tìm kiếm được tiếp tục trong cây con trái của gốc với cách làm 
tương tự 

X lớn hơn khoá ở gốc, phép tìm kiếm được tiếp tục trong cây con phải của gốc với cách làm 
tương tự 


Giả sử câu trúc một nút của cây được mô tả như sau: 


type 
PNode = ^TNode; {Con trỏ chứa liên kết tới một nút} 
TNode = record (Cấu trúc nút) 


Info: TKey; (Trường chúa khoá} 
left, Right: PNode; (con trỏ tới nút con trái và phải, trỏ tới nil nếu không có nút con trái (phải) } 
end; 
Gốc của cây được lưu trong con trỏ Root. Cây rỗng thì Root = nil 


Thuật toán tìm kiếm trên cây nhị phân tìm kiếm có thể viết như sau: 


{Hàm tìm kiếm trên BST, nó trả về nút chúa khoá tìm kiếm X nếu tìm thấy, trả về nil nếu không tìm thấy) 
function B§TSearch(X: TKey): PNode; 
Var 
p: PNode; 
begin 
p := Root; (Bắt đầu với nút gốc] 
while p # nil do 
if X = p^.Info then Break; 
else 
if X < p^.Info then p := p^.Left 
else p := p^.Right; 
BSTSearch := p; 
end; 


Thuật toán dựng cây nhị phân tìm kiếm từ dãy khoá kı, k2, ..., Kn cũng được làm gân giống 
quá trình tìm kiếm. Ta chèn lần lượt các khoá vào cây, trước khi chèn, ta tìm xem khoá đó đã 
có trong cây hay chưa, nếu đã có rồi thì bỏ qua, nếu nó chưa có thì ta thêm nút mới chứa khoá 


cân chèn và nôi nút đó vào cây nhị phân tìm kiêm. 
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{Thủ tục chèn khoá X vào BST} 
procedure BSTInsert (X) ; 
var 
p, q: PNode; 
begin 
q := nil; p := Root; {Bát đầu với p = nút gốc; q là con trỏ chạy đuôi theo sau} 
while p # nil do 
begin 
q =p; 
if X = p^.Info then Break; 
else {X + p^.Info thì cho p chạy sang nút con, q^ luôn giữ vai trò là cha của p^} 
if X < p^.Info then p := p^.Left 
else p := p^.Right; 
end; 
if p = nil then {Khoá X chua có trong BST} 
begin 
New(p); (Tạo nút mới} 
Pˆ.Info := X; (Đưa giá trị X vào nút mới tạo ra} 
p^.Left := nil; p^.Right := nil; (Nút mới khi chèn vào BST sẽ trở thành nút lá} 
if Root = nil then Root := NewNode {BST đang rồng, đặt Root là nút mới tạo] 
else {Móc NewNode^ vào nút cha q^} 
if X < q^.Info then oi. Lett := NewNode 
else q^.Right := NewNode; 
end; 
end; 


Phép loại bỏ trên cây nhị phân tìm kiếm không đơn giản như phép bô sung hay phép tìm kiếm. 
Muốn xoá một giá trị trong cây nhị phân tìm kiếm (Tức là dựng lại cây mới chứa tất cả những 
giá trị còn lại), trước hết ta tìm xem giá tri cần xoá nằm ở nút D nảo, có ba khả năng xảy ra: 

e Nút D là nút lá, trường hợp này ta chỉ việc đem mối nối cũ trỏ tới nút D (từ nút cha 


của D) thay bởi nil, và giải phóng bộ nhớ cấp cho nút D (Hình 38). 


y 


Hình 38: Xóa nút lá ở cây BST 
e Nút D chỉ có một nhánh con, khi đó ta đem nút gốc của nhánh con đó thế vào chỗ nút 
D, tức là chỉnh lại mối nối: Từ nút cha của nút D không nối tới nút D nữa mà nối tới 
nhánh con duy nhất của nút D. Cuối cùng, ta giải phóng bộ nhớ đã cấp cho nút D 


(Hình 39) 
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Hình 39. Xóa nút chi có một nhánh con trên cây BST 


e Nút D có cả hai nhánh con trái và phải, khi đó có hai cách làm đều hợp lý cả: 
o_ Hoặc tìm nút chứa khoá lớn nhất trong cây con trái, đưa giá trị chứa trong đó 
sang nút D, rồi xoá nút này. Do tính chất của cây BST, nút chứa khoá lớn nhất 
trong cây con trái chính là nút cực phải của cây con trái nên nó không thê có 


hai con được, việc xoá đưa về hai trường hợp trên (Hình 40) 


Hình 40: Xóa nút có cả hai nhánh con trên cây BST thay bằng nút cực phải của cây con trái 


o Hoặc tìm nút chứa khoá nhỏ nhất trong cây con phải, đưa giá trị chứa trong đó 
sang nút D, rồi xoá nút này. Do tính chất của cây BST, nút chứa khoá nhỏ nhất 
trong cây con phải chính là nút cực trái của cây con phải nên nó không thê có 


hai con được, việc xoá đưa về hai trường hợp trên. 
y 
wœ eh 


Hình 41: Xóa nút có cả hai nhánh con trên cây BST thay bằng nút cực trái của cây con phải 
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{Thủ tục xoá khoá X khói BST} 

procedure BSTDelete(X: TKey) ; 

var 
P, q, Node, Child: PNode; 

begin 
p := Root; q := nil; (VỀ sau, khi p trỏ sang nút khác, ta luôn giữ cho q^ luôn là cha của p^} 
while p # nil do (Tìm xem trong cây có khoá X không?} 


begin 
if p^.Info = X then Break; (Tìm thấy) 
q:=P› 


if X < p^.Info then p := p^.Left 
else p := p^.Right; 
end; 
if p = nil then Exit; {X không tôn tại trong BST nên không xoá được) 
if (p^.Left + nil) and (p^.Right + nil) then {p^ có cả con trái và con phải} 
begin 
Node := p; (Giữ lại nút chúa khoá X} 
q := p; p :=p^.Left; (Chuyển sang nhánh con trái để tìm nút cục phải} 
while p^.Right # nil do 


begin 
q := p; p := pi. Right: 
end; 
Node^. Info := p^.Info; {Chuyên giá trị tù nút cục phải trong nhánh con trái lên Node^} 
end; 


{Nút bị xoá giờ đây là nút p^, nó chỉ có nhiều nhất một con) 

{Nếu p^ có một nút con thì đem Child trỏ tới nút con đó, nếu không có thì Child = nil } 

if p^.Left + nil then Child := ph Lett 

else Child := p^.Right; 

if p = Root then Root := Child; (Nút p^ bị xoá là gốc cây} 

else {Nút bị xoá p^ không phải gốc cây thì láy mối nói tù cha của nó là q^ nói thẳng tói Child} 
if q^.Left = p then q^.Left := Child 
else q^.Right := Child; 

Dispose (p) ; 

end; 


Trường hợp trung bình, thì các thao tác tìm kiêm, chèn, xoá trên BST có độ phức tạp là 
O(logan). Còn trong trường hợp xấu nhất, cây nhị phân tìm kiếm bị suy biến thì các thao tác 
đó đều có độ phức tạp là O(n), với n là số nút trên cây BST. 

Nếu ta mở rộng hơn khái niệm cây nhị phân tìm kiếm như sau: Giá trị lưu trong một nút lớn 
hơn hoặc bằng các giá trị lưu trong cây con trái và nhỏ hơn các giá trị lưu trong cây con phải. 
Thì chỉ cần sửa đồi thủ tục BSTInsert một chút, khi chèn lần lượt vào cây n giá trị, cây BST sẽ 
có n nút (có thể có hai nút chứa cùng một giá trị). Khi đó nếu ta duyệt các nút của cây theo 
kiểu trung thứ tự (inorder traversal), ta sẽ liệt kê được các giá trị lưu trong cây theo thứ tự 
tăng dần. Phương pháp sắp xếp này người ta gọi là Tree Sort. Độ phức tạp tính toán trung 
bình của Tree Sort là O(nlogan). 

Phép tìm kiếm trên cây BST sẽ kém hiệu quả nếu như cây bị suy biến, người ta có nhiều cách 
xoay xở để tránh trường hợp này. Đó là phép quay cây để dựng cây nhị phân cân đối AVL, 
hay kỹ thuật dựng cây nhị phân tìm kiếm tối ưu. Những kỹ thuật này ta có thể tham khảo 


trong các tài liệu khác về câu trúc dù liệu và giải thuật. 
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9.5. PHÉP BĂM (HASH) 


Tư tưởng của phép băm là dựa vào giá trị các khoá k1, k2, ..., kn, chia các khoá đó ra thành 
các nhóm. Những khoá thuộc cùng một nhóm có một đặc điểm chung và đặc điểm này 
không có trong các nhóm khác. Khi có một khoá tìm kiếm X, trước hết ta xác định xem nếu X 
thuộc vào dãy khoá đã cho thì nó phải thuộc nhóm nào và tién hành tìm kiếm trên nhóm đó. 

Một ví dụ là trong cuốn từ điển, các bạn sinh viên thường dán vào 26 mảnh giấy nhỏ vào các 
trang đề đánh dấu trang nào là trang khởi đầu của một đoạn chứa các từ có cùng chữ cái đầu. 


Dé khi tra từ chỉ cân tìm trong các trang chứa những từ có cùng chữ cái đâu với từ cân tìm. 


Một ví dụ khác là trên dãy các khoá số tự nhiên, ta có thể chia nó là làm m nhóm, mỗi nhóm 
gồm các khoá đồng dư theo mô-đun m. 

Có nhiều cách cài đặt phép băm: 

Cách thứ nhất là chia dãy khoá làm các đoạn, mỗi đoạn chứa những khoá thuộc cùng một 
nhóm và ghi nhận lại vị trí các đoạn đó. Đề khi có khoá tìm kiếm, có thể xác định được ngay 
cần phải tìm khoá đó trong đoạn nào. 

Cách thứ hai là chia dãy khoá làm m nhóm, Mỗi nhóm là một danh sách nối đơn chứa các giá 
trị khoá và ghi nhận lại chốt của mỗi danh sách nối đơn. Với một khoá tìm kiếm, ta xác định 
được phải tìm khoá đó trong danh sách nối đơn nào và tiến hành tìm kiếm tuần tự trên danh 
sách nối đơn đó. Với cách lưu trữ này, việc bô sung cũng như loại bỏ một giá trị khỏi tập hợp 
khoá dé dàng hơn rất nhiều phương pháp trên. 

Cách thứ ba là nếu chia dãy khoá làm m nhóm, mỗi nhóm được lưu trữ dưới dạng cây nhi 
phân tìm kiếm và ghi nhận lại gốc của các cây nhị phân tìm kiếm đó, phương pháp này có thể 
nói là tốt hơn hai phương pháp trên, tuy nhiên dãy khoá phải có quan hệ thứ tự toàn phần thì 
mới làm được. 

9.6. KHOÁ SỐ VỚI BÀI TOÁN TÌM KIÊM 

Mọi dữ liệu lưu trữ trong máy tính đều được số hoá, tức là đều được lưu trữ bằng các đơn vi 
Bit, Byte, Word v.v... Điều đó có nghĩa là một giá trị khoá bất kỳ, ta hoàn toàn có thể biết 
được nó được mã hoá bằng con số như thế nào. Và một điều chắc chắn là hai khoá khác nhau 


sẽ được lưu trữ bằng hai số khác nhau. 
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Đối với bài toán sắp xếp, ta không thể đưa việc sắp xếp một dãy khoá bát kỳ về việc sắp xếp 
trên một dãy khoá số là mã của các khoá. Bởi quan hệ thứ tự trên các con số đó có thê khác 
với thứ tự cần sắp của các khoá. 

Nhưng đối với bài toán tìm kiếm thì khác, với một khoá tìm kiếm, Câu trả lời hoặc là "Không 
tìm thấy" hoặc là "Có tìm thấy và ở chỗ ..." nên ta hoàn toàn có thê thay các khoá bằng các 
mã số của nó mà không bị sai lầm, chỉ lưu ý một điều là: hai khoá khác nhau phải mã hoá 
thành hai số khác nhau mà thôi. 

Nói như vậy có nghĩa là việc nghiên cứu những thuật toán tìm kiếm trên các dãy khoá số rất 
quan trọng, và dưới đây ta sẽ trình bày một số phương pháp đó. 

9.7. CÂY TÌM KIÉM SÔ HỌC (DIGITAL SEARCH TREE - DST) 

Xét dãy khoá kı, k2, ..., Kn là các số tự nhiên, mỗi giá trị khoá khi đổi ra hệ nhị phân có z chữ 
số nhị phân (bit), các bit này được đánh số từ 0 (là hàng đơn vị) tới z - 1 từ phải sang trái. 

Vị dụ: 


Hình 42: Đánh số các bit 

Cây tìm kiếm số học chứa các giá trị khoá này có thê mô tả như sau: Trước hết, nó là một cây 
nhị phân mà mỗi nút chứa một giá trị khoá. Nút gốc có tối đa hai cây con, ngoài giá trị khoá 
chứa ở nút gốc, tất cả những giá trị khoá có bit cao nhất là 0 nằm trong cây con trái, còn tất cả 
những giá trị khoá có bit cao nhất là 1 nằm ở cây con phải. Đối với hai nút con của nút gốc, 
vấn đề tương tự đối với bit z - 2 (bit đứng thứ nhì từ trái sang). 

So sánh cây tìm kiếm số học với cây nhị phân tìm kiếm, chúng chỉ khác nhau về cách chia hai 
cây con trái/phải. Đối với cây nhị phân tìm kiếm, việc chia này được thực hiện bằng cách so 
sánh với khoá nằm ở nút gốc, còn đối với cây tìm kiếm số học, nếu nút gốc có mức là d thì 
việc chia cây con được thực hiện theo bit thứ d tính từ trái sang (bit z - d) của mỗi khoá. 

Ta nhận thấy rằng những khoá bắt đầu bằng bit 0 chắc chắn nhỏ hơn những khoá bắt đầu bằng 
bit 1, đó là điểm tương đồng giữa cây nhị phân tìm kiếm và cây tìm kiếm số học: Với mỗi nút 
nhánh: Mọi giá trị chứa trong cây con trái đều nhỏ hơn giá trị chứa trong cây con phải (Hình 


43). 
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Hình 43: Cây tìm kiếm số học 


Giả sử câu trúc một nút của cây được mô tả như sau: 


type 
PNode = ^TNode; {Con trỏ chứa liên kết tới một nút} 
TNode = record (Cấu trúc nút) 


Info: TKey; (Trường chúa khoá} 
left, Right: PNode; (con trỏ tới nút con trái và phải, trỏ tới nil nếu không có nút con trái (phải) } 
end; 
Gốc của cây được lưu trong con trỏ Root. Ban dàu nút Root = nil (cây rỗng) 


Với khoá tìm kiếm X, việc tìm kiếm trên cây tìm kiếm số học có thể mô tả như sau: Ban đầu 
đứng ở nút gốc, xét lần lượt các bit của X từ trái sang phải (từ bit z - 1 tới bit 0), hễ gặp bit 
bằng 0 thì rễ sang nút con trái, nếu gặp bit bằng 1 thì rẽ sang nút con phải. Quá trình cứ tiếp 
tục như vậy cho tới khi gặp một trong hai tình huống sau: 
e Di ot một nút rỗng (do rẽ theo một liên kết nil), quá trình tìm kiếm thất bại do khoá X 
không có trong cây. 


e Đi tới một nút mang giá trị đúng bằng X, quá trình tìm kiếm thành công 


{Hàm tìm kiếm trên cây tìm kiêm số học, nó trả về nút chứa khoá tìm kiếm X nêu tìm thấy, trả về nil nêu không tìm thây. z 
là độ dài dãy bit biểu diễn một khoá] 
function D§TSearch(X: TKey): PNode; 
Var 
b: Integer; 
p: PNode; 
begin 
b := z; p := Root; (Bắt đầu với nút góc} 
while (p # nil) and (p^.Info # X) do {Chua gặp phải một trong 2 tình huống trên} 
begin 
b:=b- 1; (Xét bit b của X} 
if <Bit b của X là 0> then p := p^.Left {Gặp 0 rë trái} 
else p := p^.Right; {Gặp 1 rễ phải} 
end; 
DSTSearch := p; 
end; 


Thuật toán dựng cây tìm kiểm số học từ dãy khoá kı, k2, ..., Kn cũng được làm gần giống quá 
trình tìm kiếm. Ta chèn lần lượt các khoá vào cây, trước khi chèn, ta tìm xem khoá đó đã có 
trong cây hay chưa, nếu đã có rồi thì bỏ qua, nếu nó chưa có thì ta thêm nút mới chứa khoá 
cần chèn và nối nút đó vào cây tìm kiếm số học tại mối nối rỗng vừa rẽ sang khiến quá trình 


tìm kiếm thất bại 
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{Thủ tục chèn khoá X vào cây tìm kiếm số học) 
procedure D§TTnsert(X: TKey) ; 


Var 
b: Integer; 
p, q: PNode; 
begin 
b := z; 
p := Root; 
while (p # nil) and (p^.Info + X) do 
begin 
b :=b - 1; (Xét bit b của X} 
q := p; (Khi p chạy xuống nút con thì q^ luôn giữ vai trò là nút cha của p^} 
if <Bit b của X là 0> then p := p^.Left (Gặp 0 rễ trái) 
else p := p^.Right; {Gặp 1 rễ phải} 
end; 
if p = nil then (Giá trị X chua có trong cây} 
begin 
New(p); (Tạo ra một nút mới p^} 
Pˆ.Info := X; (Nút mới tạo ra sẽ chúa khoá X} 
p^.Left := nil; p^.Right := nil; (Nút mới đó sẽ trở thành một lá của cây} 
if Root = nil then Root := p (Cây đang là rỗng thì nút mới thêm trở thành gốc} 
else (Không thì móc p^ vào môi nối vừa rẽ sang từ q^} 
if <Bit b của X là 0> then q^.Left := p 
else q^.Right := p; 
end; 
end; 


Muôn xoá bỏ một giá trị khỏi cây tìm kiêm sô học, trước hêt ta xác định nút chứa giá trị cân 
xoá là nút D nào, sau đó tìm trong nhánh cây gôc D ra một nút lá bât kỳ, chuyên giá trị chứa 


trong nút lá đó sang nút D rôi xoá nút lá. 


{Thủ tục xoá khoá X khỏi cây tìm kiếm số học) 
procedure D§TDelete(X: TKey) ; 
Var 
b: Integer; 
P, q, Node: PNode; 
begin 
{Trước hết, tìm kiếm giá trị X xem nó nằm ở nút nào} 
b := z; 
p := Root; 
while (p # nil) and (p^.Info + X) do 
begin 
b :=b-1; 
q := p; (Mỗi lần p chuyển sang nút con, ta luôn đảm bảo cho q^ là nút cha của p^} 
if <Bit b của X là 0> then p := p^.Left 
else p := p^.Right; 
end; 
if p = nil then Exit; {X không tôn tại trong cây thì không xoá được) 
Node := p; (Giữ lại nút chúa khoá cần xoá} 
while (p^.Left + nil) or (p^.Right + nil) do {chùng nào p^ chưa phải là lá} 
begin 
q := p; {q chạy đuổi theo p, còn p chuyển xuống một trong 2 nhánh con] 
if p^.Ieft + nil then p := p^.Left 
else p := p^.Right; 
end; 
Node^. Info := p^.Info; {Chuyên giá trị tù nút lá p^ sang nút Node^} 
if Root = p then Root := nil (Cây chỉ gồm một nút gốc và bây giò xoá cả gốc] 
else {Cát mỗi nói tù q^ tói p^} 
if q^.Left = p then q^.Left := nil 
else q^.Right := nil; 
Dispose (p) ; 
end; 
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Về mặt trung bình, các thao tác tìm kiếm, chèn, xoá trên cây tìm kiếm số học đều có độ phức 
tạp là O(Iogzn) còn trong trường hợp xấu nhất, độ phức tạp của các thao tác đó là O(z), bởi 


cây tìm kiếm số học có chiều cao không quá z + 1. 
9.8. CÂY TÌM KIÉM CƠ SỐ (RADIX SEARCH TREE - RST) 


Trong cây tìm kiếm số học, cũng như cây nhị phân tìm kiếm, phép tìm kiếm tại mỗi bước phải 
so sánh giá trị khoá X với giá trị lưu trong một nút của cây. Trong trường hợp các khoá có cấu 
trúc lớn, việc so sánh này có thê mắt nhiều thời gian. 

Cây tìm kiếm cơ số là một phương pháp khắc phục nhược điểm đó, nội dung của nó có thê 
tóm tắt như sau: 

Trong cây tìm kiếm cơ số là một cây nhị phân, chỉ có nút lá chứa giá trị khoá, còn giá trị chứa 
trong các nút nhánh là vô nghĩa. Các nút lá của cây tìm kiếm cơ số đều nằm ở mức z + 1. 

Đối với nút gốc của cây tìm kiếm cơ số, nó có tối đa hai nhánh con, mọi khoá chứa trong nút 
lá của nhánh con trái đều có bit cao nhất là 0, mọi khoá chứa trong nút lá của nhánh con phải 
đều có bit cao nhất là 1. 

Đối với hai nhánh con của nút gốc, vẫn đề tương tự với bit thứ z - 2, ví dụ với nhánh con trái 
của nút gốc, nó lại có tối đa hai nhánh con, mọi khoá chứa trong nút lá của nhánh con trái đều 
có bit thứ z - 2 là 0 (chúng bắt đầu bằng hai bit 00), mọi khoá chứa trong nút lá của nhánh 
con phải đều có bit thứ z - 2 là 1 (chúng bắt đầu bằng hai bit 01)... 

Tổng quát với nút ở mức d, nó có tối đa hai nhánh con, mọi nút lá của nhánh con trái chứa 


khoá có bịt z - d là 0, mọi nút lá của nhánh con phải chứa khoá có bit thứ z - d là 1 (Hình 44). 
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Hình 44: Cây tìm kiếm cơ số 


Khác với cây nhị phân tìm kiêm hay cây tìm kiêm sô học. Cây tìm kiêm cơ sô được khởi tạo 
gôm có một nút gôc, và nút gôc tôn tại trong suôt quá trình sử dụng: nó không bao giờ bi 


xoá đi cả. 
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Đề tìm kiếm một giá trị X trong cây tìm kiếm cơ số, ban đầu ta đứng ở nút gốc và duyệt dãy 
bit của X từ trái qua phải (từ bit z - 1 đến bit 0), gặp bit bằng 0 thì rẽ sang nút con trái còn gặp 
bit bằng 1 thì rẽ sang nút con phải, cứ tiếp tục như vậy cho tới khi một trong hai tình huống 
Sau Xảy Ta: 

Hoặc đi tới một nút rỗng (do rẽ theo liên kết nil) quá trình tìm kiếm thất bại do X không có 
trong RST 

Hoặc đã duyệt hết dãy bit của X và đang đứng ở một nút lá, quá trình tìm kiếm thành công vì 


chắc chắn nút lá đó chứa giá trị đúng bằng X. 


{Hàm tìm kiếm trên cây tìm kiếm cơ số, nó trả về nút lá chứa khoá tìm kiêm X nếu tìm thấy, trả về nil nêu không tìm thấy. 
z là độ dài dãy bit biểu diễn một khoá] 
function RSTSearch (X: TKey): PNode; 
var 
b: Integer; 
p: PNode; 
begin 
b := z; p := Root; {Bát đầu với nút gốc, đối với RST thì gốc luôn có sẵn) 
repeat 
b:=b- 1; {Xét bit b của X} 
if <Bit b của X là 0> then p := p^.Left (Gặp 0 rễ trái) 
else p := p^.Right; (Gặp 1 rễ phải] 
until (p = nil) or (b = 0); 
RSTSearch := p; 
end; 


Thao tác chèn một giá tri X vào RST được thực hiên như sau: Đầu tiên, ta đứng ở góc và 
duyệt dãy bit của X từ trái qua phải (từ bit z - 1 về bit 0), cứ gặp 0 thì rẽ trái, gặp 1 thì rẽ phải. 
Nếu quá trình rẽ theo một liên kết nil (đi tới nút rỗng) thì lập tức tạo ra một nút mới, và nối 
vào theo liên kết đó để có đường đi tiếp. Sau khi duyệt hết dãy bit của X, ta sẽ dừng lại ở một 
nút lá của RST, và công việc cuối cùng là đặt giá trị X vào nút lá đó. 


Ví dụ: 


Hình 45: Với độ dài dãy bit z = 3, cây tìm kiếm cơ số gồm các khoá 2, 4, 5 và sau khi thêm giá trị 7 
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{Thủ tục chèn khoá X vào cây tìm kiếm cơ số) 
procedure R§TTnsert(X: TKey) ; 
Var 
b: Integer; 
p, q: PNode; 
begin 
b := z; p := Root; (Bất đầu tù nút gốc, đối với RST thì góc luôn # nil} 
repeat 
b :=b - 1; (Xét bit b của X} 
q := p; (Khi p chạy xuống nút con thì q^ luôn giữ vai trò là nút cha của p^} 
if <Bit b của X là 0> then p := p^.Left (Gặp 0 rễ trái) 
else p := p^.Right; (Gặp 1 rễ phải} 
if p = nil then (Không đi được thì đặt thêm nút để đi tiếp) 
begin 
New(p); (Tạo ra một nút mới và đem p trỏ tới nút đó} 
p^.Left := nil; p^.Right := nil; 
if <Bit b của X là 0> then q^.Left := p (Nối p^ vào bên trái q^} 
else g^.Right := p; (Mối p^ vào bên phải q^} 
end; 
until b = 0; 
p^.Info := X; {p^ là nút lá để đặt X vào) 
end; 


Với cây tìm kiêm cơ sô, việc xoá một giá trị khoá không phải chỉ là xoá riêng một nút lá mà 


còn phải xoá toàn bộ nhánh độc đạo đi tới nút đó để tránh lãng phí bộ nhớ (Hình 46). 
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Hình 46: RST chứa các khoá 2, 4, 5, 7 và RST sau khi loại bỏ giá trị 7 
Ta lặp lại quá trình tìm kiếm giá trị khoá X, quá trình này sẽ đi từ gốc xuống lá, tại mỗi bước 
đi, mỗi khi gặp một nút ngã ba (nút có cả con trái và con phải - nút cấp hai), ta ghi nhận lại 
ngã ba đó và hướng rẽ. Kết thúc quá trình tìm kiếm ta giữ lại được ngã ba đi qua cuối cùng, từ 
nút đó tới nút lá chứa X là con đường độc đạo (không có chỗ rẽ), ta tién hành dỡ bỏ tất cả các 
nút trên đoạn đường độc đạo khỏi cây tìm kiếm cơ số. Để không bị gặp lỗi khi cây suy biến 


(không có nút cấp 2) ta coi gốc cũng là nút ngã ba 
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{Thủ tục xoá khoá X khỏi cây tìm kiếm cơ số) 
procedure RSTDelete(X: TKey) ; 
var 
b: Integer; 
P, q, TurnNode, Child: PNode; 
begin 
{Trước hết, tìm kiếm giá trị X xem nó nằm ở nút nào} 
b := z; p := Root; 
repeat 
b :=b-1; 
q := p; (Mỗi lần p chuyển sang nút con, ta luôn đảm bảo cho q^ là nút cha của p^} 
if <Bit b của X là 0> then p := p^.Left 
else p := p^.Right; 
if (b= z - 1) or (g^.Ieft + nil) and (qg^.Right + nil) then {q^ là nút ngã ba} 
begin 
TurnNode := q; Child := p; (Ghi nhận lại q^ và hướng rë} 
end; 
until (p = nil) or (b = 0); 
if p = nil then Exit; {X không tôn tại trong cây thì không xoá được) 
{Trước hết, cát nhánh độc đạo ra khỏi cây} 
if TurnNode^.Left = Child then TurnNode^.Left := nil 
else TurnNode^.Right := nil 
p := Child; (Chuyển sang đoạn đường độc đạo, bắt đầu xoá] 
repeat 
Long si 4 h h 
{Luu ý rằng p^ chỉ có tôi đa một nhánh con mà thôi, cho p trỏ sang nhánh con duy nhật nêu có} 
if p^.Ieft + nil then p := p^.Left 
else p := p^.Right; 
Dispose(q); (Giải phóng bộ nhớ cho nút q^} 
until p = nil; 
end; 


Ta có một nhận xét là: Hình dáng của cây tìm kiếm cơ số không phụ thuộc vào thứ tự chèn 
các khoá vào mà chỉ phụ thuộc vào giá trị của các khoá chứa trong cây. 

Đối với cây tìm kiếm cơ số, độ phức tạp tính toán cho các thao tác tìm kiếm, chèn, xoá trong 
trường hợp xấu nhất cũng như trung bình đều là O(z). Do không phải so sánh giá trị khoá dọc 
đường đi, nó nhanh hơn cây tìm kiếm số học nếu như gặp các khoá cấu trúc lớn. Tốc độ như 
vậy có thể nói là tốt, nhưng vấn đề bộ nhớ khiến ta phải xem xét: Giá trị chứa trong các nút 
nhánh của cây tìm kiếm cơ số là vô nghĩa dẫn tới sự lãng phí bộ nhớ. 

Một giải pháp cho vấn đề này là: Duy trì hai dang nút trên cây tìm kiếm cơ số: Dạng nút 
nhánh chỉ chứa các liên kết trái, phải và dạng nút lá chỉ chứa giá trị khoá. Cài đặt cây này trên 
một số ngôn ngữ định kiêu quá mạnh đôi khi rất khó. 

Giải pháp thứ hai là đặc tả một cây tương tự như RST, nhưng sửa đổi một chút: nếu có nút lá 
chứa giá trị X được nối với cây bằng một nhánh độc đạo thì cắt bỏ nhánh độc đạo đó, và thay 
vào chỗ nhánh này chỉ một nút chứa giá trị X. Như vậy các giá trị khoá vẫn chỉ chứa trong các 
nút lá nhưng các nút lá giờ đây không chỉ nằm trên mức z + 1 mà còn nằm trên những mức 
khác nữa. Phương pháp này không những tiết kiệm bộ nhớ hơn mà còn làm cho quá trình tìm 
kiếm nhanh hơn. Giá phải trả cho phương pháp này là thao tác chèn, xoá khá phức tạp. Tên 


của câu trúc dữ liệu này là Trie (Trie chứ không phải Tree) tìm kiêm cơ sô. 
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Hình 47: Cây tìm kiếm cơ số a) và Trie tìm kiếm cơ số b) 

Tương tự như phương pháp sắp xếp bằng cơ số, phép tìm kiếm bằng cơ số không nhất thiết 
phải chọn hệ cơ số 2. Ta có thể chọn hệ cơ số lớn hơn để có tốc độ nhanh hơn (kèm theo sự 
tốn kém bộ nhớ), chỉ lưu ý là cây tìm kiếm số học cũng như cây tìm kiếm cơ số trong trường 
hợp này không còn là cây nhị phân mà là cây R_phân với R là hệ cơ số được chọn. 

Trong các phương pháp tìm kiếm bằng cơ số, thực ra còn một phương pháp tinh tuý và thông 
minh nhất, nó có cấu trúc gần giống như cây nhưng không có nút dư thừa, và quá trình duyệt 
bit của khoá tìm kiếm không phải từ trái qua phải mà theo thứ tự của các bit kiểm soát lưu tại 
mỗi nút đi qua. Phương pháp đó có tên gọi là Practical Algorithm To Retrieve Information 
Coded In Alphanumeric (PATRICIA) do Morrison đề xuất. Tuy nhiên, việc cài đặt phương 
pháp này khá phức tạp (đặc biệt là thao tác xoá giá trị khoá), ta có thê tham khảo nội dung của 


nó trong các tài liệu khác. 
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9.9. NHỮNG NHÂN XÉT CUỎI CÙNG 


Tìm kiếm thường là công việc nhanh hơn sắp xếp nhưng lại được sử dụng nhiều hơn. Trên 
đây, ta đã trình bày phép tìm kiếm trong một tập hợp dé tìm ra bản ghi mang khoá đúng bằng 
khoá tìm kiếm. Tuy nhiên, người ta có thể yêu cầu tìm bản ghi mang khoá lớn hơn hay nhỏ 
hơn khoá tìm kiếm, tìm bản ghi mang khoá nhỏ nhất mà lớn hơn khoá tìm kiếm, tìm bản ghi 
mang khoá lớn nhất mà nhỏ hơn khoá tìm kiếm v.v... Để cài đặt những thuật toán nêu trên 
cho những trường hợp này cần có một sự mềm dẻo nhất định. 

Cũng tương tự như sắp xếp, ta không nên đánh giá giải thuật tìm kiếm này tốt hơn giải thuật 
tìm kiếm khác. Sử dụng thuật toán tìm kiếm phù hợp với từng yêu cầu cụ thê là kỹ năng của 
người lập trình, việc cài đặt cây nhị phân tìm kiếm hay cây tìm kiếm cơ số chỉ đề tìm kiếm 
trên vài chục bản ghi chỉ khăng định được một điều rõ ràng: không biết thế nào là giải thuật 
và lập trình. 

Bài tập 

Bài 1 

Hãy thử viết một chương trình SearchDemo tương tự như chương trình SortDemo trong bài 
trước. Đồng thời viết thêm vào chương trình SortDemo ở bài trước thủ tục TreeSort và đánh 
giá tốc độ thực của nó. 

Bài 2 

Tìm hiểu các phương pháp tìm kiếm ngoài, cầu trúc của các D cây 

Bài 3 

Tìm hiểu các phương pháp tìm kiếm chuỗi, thuật toán BRUTE-FORCE, thuật toán KNUTH- 
MORRIS-PRATTT, thuật toán BOYER-MOORE và thuật toán RABIN-KARP 


` 
A 


Tuy gọi là chuyên đề về "Cấu trúc dù liệu và giải thuật" nhưng thực ra, ta mới chỉ tìm hiểu 
qua về hai dạng cấu trúc dữ liệu hay gặp là danh sách và cây, cùng với một số thuật toán mà 
"đâu cũng phải có" là tìm kiếm và sắp xếp. Không một tài liệu nào có thé đề cập tới mọi cấu 
trúc đữ liệu và giải thuật bởi chúng quá phong phú và liên tục được bô sung. Những cấu trúc 
dù liệu và giải thuật không "phô thông" lắm như lý thuyết đồ thị, hình học, v.v... sẽ được tách 
ra và sẽ được nói kỹ hơn trong một chuyên đề khác. 

Việc đi sâu nghiên cứu những cấu trúc dữ liệu và giải thuật, dù chỉ là một phần nhỏ hẹp cũng 
nảy sinh rất nhiều vấn đề hay và khó, như các vấn đề lý thuyết về độ phức tạp tính toán, vấn 
đề NP đầy đủ v.v... Đó là công việc của những nhà khoa học máy tính. Nhưng trước khi trở 
thành một nhà khoa học máy tính thì điều kiện cần là phải biết lập trình. Vậy nên khi tìm 
hiểu bất cứ cấu trúc dữ liệu hay giải thuật nào, nhất thiết ta phải cố gắng cài đặt bằng được. 


Mọi ý tưởng hay sẽ chỉ là bỏ đi nêu như không biến thành hiệu quả, thực tế là như vậy. 
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Các thuật toán đệ quy có ưu điểm dễ cài đặt, tuy nhiên do bản 
chất của quá trình đệ quy, các chương trình này thường kéo theo 
những đòi hỏi lớn về không gian bộ nhớ và một khối lượng tính 
toán không lô. 

Quy hoạch động (Dynamic programming) là một kỹ thuật nhằm 
đơn giản hóa việc tính toán các công thức truy hồi bằng cách lưu 
trữ toàn bộ hay một phần kết quả tính toán tại mỗi bước với mục 
đích sử dụng lại. Bản chất của quy hoạch động là thay thế mô 
hình tính toán “từ trên xuống” (Top-down) bằng mô hình tính 
toán “từ dưới lên” (Bottom-up). 

Từ “programming” ở đây không liên quan gì tới việc lập trình 
cho máy tính, đó là một thuật ngữ mà các nhà toán học hay dùng 
dë chỉ ra các bước chung trong việc giải quyết một dạng bài toán 
hay một lớp các vấn đề. Không có một thuật toán tổng quát để 
giải tất cả các bài toán quy hoạch động. 

Mục đích của phần này là cung cấp một cách tiếp cận mới trong 
việc giải quyết các bài toán tối ưu mang bản chất đệ quy, đồng 
thời đưa ra các ví dụ để người đọc có thể làm quen và hình 
thành các kỹ năng trong việc tiếp cận các bài toán quy hoạch 


động. 
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§1. CÔNG THỨC TRUY HO 


1.1. VÍ DỤ 
Cho số tự nhiên n < 100. Hãy cho biết có bao nhiêu cách phân tích số n thành tổng của 
dãy các số nguyên dương, các cách phân tích là hoán vị của nhau chỉ tính là một cách. 


Ví dụ: n = 5 có 7 cách phán tích: 


1.5=1+1+1+1+1 
2.5=1+1+1+2 
3,.5£1-+14 3 
4.5=1†1212 
3.5=114 
6.5=213 

1.5=5 


(Lưu ý: n = 0 vẫn coi là có 1 cách phân tích thành tổng các số nguyên dương (0 là tổng 
của dãy rỗng)) 

Đề giải bài toán này, trong chuyên mục trước ta đã dùng phương pháp liệt kê tất cả các cách 
phân tích và đếm số cấu hình. Bây giờ ta thử nghĩ xem, có cách nào tính ngay ra số lượng 
các cách phân tích mà không cần phải liệt kê hay không ?. Bởi vì khi số cách phân tích 
tương đối lớn, phương pháp liệt kê tỏ ra khá chậm. (n = 100 có 190569292 cách phân tích). 
Nhận xét: 

Nếu gọi F[m, v] là số cách phân tích số v thành tổng các số nguyên dương < m. Khi đó: 
Các cách phân tích số v thành tổng các số nguyên đương < m có thể chia làm hai loại: 

Loại 1: Không chứa số m trong phép phân tích, khi đó số cách phân tích loại này chính là số 
cách phân tích số v thành tông các số nguyên đương < m, tức là số cách phân tích số v thành 
tổng các số nguyên dương < m - 1 và bằng F[m - 1, v]. 

Loại 2: Có chứa ít nhất một số m trong phép phân tích. Khi đó nếu trong các cách phân tích 
loại này ta bỏ đi số m đó thì ta sẽ được các cách phân tích số v - m thành tổng các số nguyên 
dương < m (Lưu ý: điều này chỉ đúng khi không tính lặp lại các hoán vị của một cách). Có 
nghĩa là về mặt số lượng, số các cách phân tích loại này bằng F[m, v - m] 

Trong trường hợp m > v thì rõ ràng chỉ có các cách phân tích loại 1, còn trong trường hợp m < 
v thì sẽ có cả các cách phân tích loại 1 và loại 2. Vì thế: 

F[m, v] = F[m - 1, v] nếu m> v 

F[m, v] = F[m - 1, v] + F[m, v - m] néu m < v 

Ta có công thức xây dựng F[m, v] từ F[m - 1, v] và F[m, v - m]. Công thức này có tên gọi là 
công thức truy hồi đưa việc tính F[m, v] về việc tính các F[m', vil với đữ liệu nhỏ hơn. Tất 
nhiên cuối cùng ta sẽ quan tâm đến F[n, n]: Số các cách phân tích n thành tông các số nguyên 


dương < n. 
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Ví dụ với n = 5, bảng F sẽ là: 


5 
0 
1 
3 
5 
6 


Nhìn vào bång F, ta thấy rằng F[m, v] được tính bằng tông của: 


LN P G2 Här ojm 
¬ —¬ —¬ — — —=|C 
= — =e  ¬ CS) l Eech 
N N A  == OJN 
A U U Ne OJU 
c{h Ca: A Lo ro C|+ 


m 


Một phần tử ở hàng trên: F[m - 1, v] và một phần tử ở cùng hàng, bên trái: F[m, v - m]. 

Ví dụ F[5, 5] sẽ được tính bằng F[4, 5] + F[5, 0], hay F[3, 5] sẽ được tính bằng F[2, 5] + F[3, 
2]. Chính vì vậy đề tính F[m, v] thì F[m - 1, v] và F[m, v - m] phải được tính trước. Suy ra thứ 
tự hợp lý để tính các phần tử trong bảng F sẽ phải là theo thứ tự từ trên xuống và trên mỗi 
hàng thì tính theo thứ tự từ trái qua phải. 

Điều đó có nghĩa là ban đầu ta phải tính hàng 0 của bảng: F[0, v] = số dãy có các phần tử < 0 
mà tông bằng v, theo quy ước ở đề bài thì F[0, 0] = 1 còn F[0, v] với mọi v > 0 đều là 0. 

Vậy giải thuật dựng rất đơn giản: Khởi tạo dòng 0 của bảng F: F[0, 0] = 1 còn F[0, v] với mọi 
v > 0 đều bằng 0, sau đó dùng công thức truy hồi tính ra tất cả các phần tử của bảng F. Cuối 
cùng F[n, n] là só cách phân tich càn tìm 


program Analysel; (Bài toán phân tích sô} 
const 
max = 100; 
var 
F: array[0..max, 0..max] of LongInt; 
n, m, v: Integer; 
begin 
Write('n = '); Readln (n); 
FillChar(F[0], Size0f(F[0]), 0); {Khói tạo dòng 0 của bång F toàn số 0} 
F[0, 0] := 1; (Duy chỉ có F[0, 0] = 1} 
for m := 1 to n do (Dùng công thức tính các dòng theo thứ tự từ trên xuống dưới} 
for v := 0 to n do (Các phần tủ trên một dòng thì tính theo thứ tụ từ trái qua phải) 
if v < m then Fịm, v] := F[m - 1, v] 
else F[m, v] := F[m - 1, v] + F[m, v - m]; 
WriteLn(F[n, n], ' Analyses'); {Cuối cùng Ein, n] là số cách phân tích} 
end. 


1.2. CẢI TIỀN THỨ NHÁT 


Cách làm trên có thê tóm tắt lại như sau: Khởi tạo dòng 0 của bảng, sau đó dùng dòng 0 tính 
dòng 1, dùng dòng 1 tính dòng 2 v.v... tới khi tính được hết dòng n. Có thể nhận thấy rằng 
khi đã tính xong dòng thứ k thì việc lưu trữ các dòng từ dòng 0 tới dòng k - 1 là không cần 
thiết bởi vì việc tính dòng k + 1 chỉ phụ thuộc các giá trị lưu trữ trên dòng k. Vậy ta có thê 
dùng hai mảng một chiều: Mäng Current lưu dòng hiện thời đang xét của bảng và mảng Next 
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lưu dòng kế tiếp, đầu tiên mảng Current được gán các giá trị tương ứng trên dòng 0. Sau đó 
dùng mảng Current tính mảng Next, mảng Next sau khi tính sẽ mang các giá tri tương ứng 
trên dòng 1. Rồi lại gán mảng Current := Next và tiếp tục dùng mảng Current tính mảng Next, 


mảng Next sẽ gôm các giá trị tương ứng trên dòng 2 v.v... Vậy ta có cài đặt cải tiên sau: 


program Analyse2 ; 
const 
max = 100; 
Var 
Current, Next: array[0..max] of LongInt; 
n, m, v: Integer; 
begin 
Write('n = '); Readln (n); 
FillChar (Current, SizeOf (Current), 0); 
Current[0] := 1; {Khói tạo mång Current tương ứng với dòng 0 của bảng F} 
form := 1 to n do 
begin {Dùng dòng hiện thời Current tính dòng kế tiếp Next o Dùng dòng m - 1 tính dòng m của bảng F} 
for v := 0 to n do 
if v < m then Next[v] := Current[v] 
else Next[v] := Current[v] + Next[v - m]; 
Current := Next; {Gán Current := Next túc là Current bây giò lại lưu các phần tử trên dòng m của bång F} 
end; 
WriteLn (Current[n], ' Analyses'); 
end. 


Cách làm trên đã tiết kiệm được khá nhiều không gian lưu trữ, nhưng nó hơi chậm hơn 
phương pháp đầu tiên vì phép gán mảng (Current := Next). Có thê cải tién thêm cách làm này 


như sau: 


program Analyse3; 
const 
max = 100; 
Var 
B: array[1..2, 0..max] of LongTnt;(Bảng B chỉ gồm 2 dòng thay cho 2 dòng liên tiếp của bảng phương án] 
n, m, v, x, y: Integer; 
begin 
Write('n = '); Readln (n); 
{Truóc hết, dòng 1 của bång B tương ứng với dòng 0 của bảng phương án F, được điển co sở quy hoạch động} 
FillChar(B[1], §5ize0f(B[1]), 0); 
B[1] [0] := 1; 
x := 1; (Dòng B[x] đóng vai trò là dòng hiện thời trong bảng phương án} 
y e 2; (Dòng B[y] đóng vai trò là dòng kế tiếp trong bảng phương án} 
form := 1 to n do 
begin 
{Dùng dòng x tính dòng y © Dùng dòng hiện thời trong bảng phương án để tính dòng kế tiếp) 
for v := 0 to n do 
if v < m then B[y] [v] := B[x] [v] 
else B[y] [v] := B[x][v] + B[y][v - m]; 
x:=3-x; y:=3- y; [Đảo giá trị x và y, tính xoay lại] 
end; 
WriteLn(B[x] [n], ' Analyses'); 
end. 
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1.3. CÁI TIÉN THÚ HAI 


Ta vẫn còn cách tốt hơn nữa, tại mỗi bước, ta chỉ cần lưu lại một dòng của bảng F băng một 
mảng 1 chiều, sau đó dùng mảng đó tính lại chính nó để sau khi tính, mảng một chiều sẽ lưu 


các giá trị của bảng F trên dòng ké tiếp. 


program Analyse4; 
const 
max = 100; 
Var 
L: array[0..max] of LongTnt; {Chi cần luu 1 dòng] 
n, m, v: Integer; 
begin 
Write('n = '); Readln (n); 
FillChar (L, Size0f (L), 0); 
L[0] := 1; {Khói tạo mảng 1 chiều L lưu dòng 0 của bång} 
for m := 1 to ndo {Dùng L tính lại chính nó} 
for v := m to n do 
L[v] := L[v] + L[v - m]; 
WriteLn(L[n], ' Analyses') ; 
end. 


1.4. CÀI ĐẶT ĐỆ QUY 


Xem lại công thức truy hồi tính F[m, v] = F[m - 1, v] + F[m, v - m], ta nhận thấy răng đề tính 
F[m, v] ta phải biết được chính xác F[m - 1, v] và F[m, v - m]. Như vậy việc xác định thứ tự 
tính các phần tử trong bảng F (phần tử nào tính trước, phần tử nào tính sau) là quan trọng. Tuy 
nhiên ta có thể tính dựa trên một hàm đệ quy mà không cần phải quan tâm tới thứ tự tính toán. 


Việc viết một hàm đệ quy tính công thức truy hồi khá đơn giản, như ví dụ này ta có thê viết: 


program Analyse5; 
Var 
n: Integer; 


function GetF(m, v: Integer): LongInt; 
begin 
if m= 0 then (Phần neo của hàm đệ quy} 
if v = 0 then GetF := 1 
else GetF := 0 
else (Phần dê quy} 
if m > v then GetF := GetF(m - 1, v) 
else GetF := GetF(m - 1, v) + GetF (m, v - m); 


end; 
begin 
Write('n = '); Readln (n) ; 
WriteLn(GetF(n, n), ' Analyses') ; 
end. 


Phương pháp cài đặt này tỏ ra khá chậm vì phải gọi nhiều lần mỗi hàm GetF(m, v) (bài sau sẽ 
giải thích rõ hơn điều này). Ta có thể cải tiến bằng cách kết hợp với một mảng hai chiều F. 
Ban đầu các phần tử của F được coi là "chưa biết" (bằng cách gán một giá trị đặc biệt). Hàm 


GetF(m, v) khi được gọi trước hết sẽ tra cứu tới F[m, v], nếu F[m, v] chưa biết thì hàm 
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GetF(m, v) sẽ gọi đệ quy để tính giá trị của F[m, v] rồi dùng giá trị này gán cho kết quả hàm, 
còn néu F[m, v] đã biết thì hàm này chỉ việc gán kết quả hàm là F[m, v] mà không cần gọi đệ 


quy để tính toán nữa. 


program Analyse6 ; 


const 

max = 100; 
var 

n: Integer; 


F: array[0..max, 0..max] of LongInt; 


function GetF(m, v: Integer): LongInt; 
begin 
if F[m, v] = -1 then {Nếu F[m, v] chưa biết thì đi tính F[m, v]} 
begin 
if m= 0 then {Phàn neo của hàm đệ quy} 
if v = 0 then F[m, v] := 1 
else F[m, v] := 0 
else (Phần đệ quy} 
if m > v then Fịm, v] := GetF(m - 1, v) 
else F[m, v] := GetF(m - 1, v) + GetF(m, v - m); 


end; 
GetF := F[m, v]; {Gán kết quả hàm bằng F[m, v]} 
end; 
begin 
Write('n = '); ReadLn(n) ; 


FillChar (f, Size0f (f), $FF); {Khởi tạo mảng F bằng giá trị -1} 
WriteLn(GetF(n, n), ' Analyses') ; 
end. 


Việc sử dụng phương pháp đệ quy để giải công thức truy hồi là một kỹ thuật đáng lưu ý, vì 
khi gặp một công thức truy hồi phức tạp, khó xác định thứ tự tính toán thì phương pháp này tỏ 


ra rất hiệu quả, hơn thế nữa nó làm rõ hơn bản chất đệ quy của công thức truy hồi. 
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§2. PHƯƠNG PHÁP QUY HOẠCH ĐỘNG 


2.1. BÀI TOÁN QUY HOẠCH 

Bài toán quy hoạch là bài toán tối ưu: gồm có một hàm f gọi là hàm mục tiêu hay hàm đánh 

giá; các hàm g1, g2, ..., gn cho giá trị logic gọi là hàm ràng buộc. Yêu cầu của bài toán là tìm 

một cấu hình x thoả mãn tất cả các ràng buộc g1, g2, ...gn: gi(x) = TRUE (Vi: 1 <i < n) và x 

là tốt nhất, theo nghĩa không tồn tại một cấu hình y nào khác thoả mãn các hàm ràng buộc mà 

f(y) tốt hơn fx). 

Ví dụ: 

Tìm (x, y) để 

Hàm mục tiêu: x +y —> max 

Hàm ràng buộc : x” +y’ < I. 

Xét trong mặt phẳng toạ độ, những cặp (x, y) thoả mãn x° + y < 1 là tọa độ của những điểm 

năm trong hình tròn có tâm O là gốc toa độ, bán kính 1. Vậy nghiệm của bài toán bắt buộc 

nằm trong hình tròn đó. 

Những đường thắng có phương trình: x + y = C (C là một hằng só) là đường thăng vuông góc 

với đường phân giác góc phần tư thứ nhất. Ta phải tìm số C lớn nhất mà đường thắng x + y = 

C vẫn có điểm chúng với đường tròn (O, 1). Đường thăng đó là một tiếp tuyến của đường tròn: 
1 3 


42 42 


x+y= v2: Tiếp điểm ( ) tương ứng với nghiệm tối ưu của bài toán đã cho. 


Các dạng bài toán quy hoạch rất phong phú và đa dạng, ứng dụng nhiều trong thực tế, nhưng 
cũng cần biết rằng, đa số các bài toán quy hoạch là không giải được, hoặc chưa giải được. 
Cho đến nay, người ta mới chỉ có thuật toán đơn hình giải bài toán quy hoạch tuyến tính lồi, 
và một vài thuật toán khác áp dụng cho các lớp bài toán cụ thể. 

2.2. PHƯƠNG PHÁP QUY HOẠCH ĐỘNG 

Phương pháp quy hoạch động dùng để giải bài toán tối ưu có bản chất đệ quy, tức là việc tìm 


phương án tôi ưu cho bài toán đó có thê đưa vê tìm phương án tôi ưu của một sô hữu hạn các 
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bài toán con. Đối với nhiều thuật toán đệ quy chúng ta đã tìm hiểu, nguyên lý chia để trị 
(divide and conquer) thường đóng vai trò chủ đạo trong việc thiết kế thuật toán. Đề giải quyết 
một bài toán lớn, ta chia nó làm nhiều bài toán con cùng dạng với nó dë có thể giải quyết độc 
lập. Trong phương pháp quy hoạch động, nguyên lý này càng được thể hiện rõ: Khi không 
biết cần phải giải quyết những bài toán con nào, ta sẽ đi giải quyết tất cả các bài toán con và 
lưu trữ những lời giải hay đáp số của chúng với mục đích sử dụng lại theo một sự phối 
hợp nào đó đề giải quyết những bài toán tông quát hơn. Đó chính là điểm khác nhau giữa Quy 
hoạch động và phép phân giải đệ quy và cũng là nội dung phương pháp quy hoạch động: 
Phép phân giải đệ quy bắt đầu từ bài toán lớn phân rã thành nhiều bài toán con và đi giải 
từng bài toán con đó. Việc giải từng bài toán con lại đưa về phép phân rã tiếp thành nhiều bài 
Quy hoạch động bắt đầu từ việc giải tất cả các bài toán nhỏ nhất ( bài toán cơ sở) để từ đó 
từng bước giải quyết những bài toán lớn hơn, cho tới khi giải được bài toán lớn nhất (bài toán 
ban đầu). 
Ta xét một ví dụ đơn giản: 
Vĩ dụ: Dãy Fibonacci là dãy số nguyên dương được định nghĩa như sau: 

bucht 

Vi: 3 <i: Fi = Fi t Fị) 


Hãy tinh Fe 
Xét hai cách cài đặt chương trình: 
Cách 1 Cách 2 
program Fibol; program Fibo2; 
var 
function F(i: Integer): Integer; F: array[1..6] of Integer; 
begin i: Integer; 
if i < 3 then F := 1 
else F := F(i - 1) + F(i - 2); begin 
end; F[1] := 1; F[2] := 1; 
for i := 3 to 6 do 
begin F[i] := F[i - 1] + F[i - 2]; 
WriteLn (F (6)) ; WriteLn (F[6]) ; 
end. end. 


Trong cách 1, ta viết một hàm đệ quy F(i) để tính số Fibonacci thứ i. Chương trình chính gọi 
F(6), nó sẽ gọi tiếp F(6) và F(4) đề tính ... Quá trình tính toán có thể vẽ như cây dưới đây. Ta 
nhận thấy đề tính Frei nó phải tính 1 lần F(Š), hai lần F(4), ba lần F(3), năm lần F(2), ba lần 
Fd). 
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Hình 48: Hàm đệ quy tính số Fibonacci 


Cách 2 thì không như vậy. Trước hết nó tính sẵn F[1] và F[2], từ đó tính tiếp F[3], lại tính tiếp 
được F[4], F[Š], F[6]. Đảm bảo rằng mỗi giá trị Fibonacci chỉ phải tính 1 lần. 

(Cách 2 còn có thể cải tién thêm nữa, chỉ cần dùng 3 giá trị tính lại lẫn nhau) 

Trước khi áp dụng phương pháp quy hoạch động ta phải xét xem phương pháp đó có thoả 
mãn những yêu cầu dưới đây hay không: 

Bài toán lớn phải phân rã được thành nhiều bài toán con, mà sự phối hợp lời giải của các bài 
toán con đó cho ta lời giải của bài toán lớn. 

Vì quy hoạch động là đi giải tẤt cả các bài toán con, nên nếu không đủ không gian vật lý lưu 
trữ lời giải (bộ nhớ, đĩa...) để phối hợp chúng thì phương pháp quy hoạch động cũng không 
thé thực hiện được. 

Quá trình từ bài toán cơ sở tìm ra lời giải bài toán ban đầu phải qua hữu hạn bước. 

Các khái niệm: 

Bài toán giải theo phương pháp quy hoạch động gọi là bài toán quy hoạch động 

Công thức phối hợp nghiệm của các bài toán con để có nghiệm của bài toán lớn gọi là công 
thức truy hồi (hay phương trình truy toán) của quy hoạch động 

Tập các bài toán nhỏ nhất có ngay lời giải để từ đó giải quyết các bài toán lớn hơn gọi là eơ 
sở quy hoạch động 

Không gian lưu trữ lời giải các bài toán con để tìm cách phối hợp chúng gọi là bảng phương 
án của quy hoạch động 

Các bước cài đặt một chương trình sử dụng quy hoạch động: (nhớ kỹ) 

Giải tất cả các bài toán cơ sở (thông thường rất dể), lưu các lời giải vào bảng phương án. 
Dùng công thức truy hồi phối hợp những lời giải của những bài toán nhỏ đã lưu trong bảng 
phương án để tìm lời giải của những bäi toán lớn hơn và lưu chúng vào bảng phương án. Cho 
tới khi bài toán ban đầu tìm được lời giải. 


Dựa vào bảng phương án, truy vết tìm ra nghiệm tối ưu. 
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Cho đến nay, vẫn chưa có một định lý nào cho biết một cách chính xác những bài toán nào có 
thể giải quyết hiệu quả bằng quy hoạch động. Tuy nhiên để biết được bài toán có thê giải bằng 
quy hoạch động hay không, ta có thê tự đặt câu hỏi: "Một nghiệm tối ưu của bài toán lớn có 
phải là sự phối hợp các nghiệm tối ưu của các bài toán con hay không ?" và ”Liệu có thể 
nào lưu trữ được nghiệm các bài toán con dưới một hình thức nào đó để phối hợp tìm 


được nghiệm bài toán lón" 
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§3. MOT SO BÀI TOÁN QUY HOẠCH ĐỘNG 


3.1. DAN CON DON DIEU TĂNG DÀI NHẤT 


Cho dãy số nguyên A = ai, a2, ..., an. (n < 5000, -10000 < a; < 10000). Một dãy con của A là 
một cách chọn ra trong A một số phần tử giữ nguyên thứ tự. Như vậy A có 2" dãy con. 
Yêu cầu: Tìm dãy con đơn điệu tăng của A có độ dài lớn nhất. 
Ví dụ: A = (1, 2, 3, 4, 9, 10, 5, 6, 7). Dãy con đơn điệu tăng dài nhất là: (1, 2, 3, 4, 5, 6, 7). 
Input: file văn bản INCSEQ.INP 

e Dòng 1: Chúa sô n 

e Dòng 2: Chúa n SỐ ai, a2, ..., an cách nhau ít nhất một dấu cách 
Output: file văn bản INCSEQ.OUT 

e Dong 1: Ghi độ dài dãy con tìm được 


e Các dòng tiếp: ghi dãy con tìm được và chỉ số những phần tử được chọn vào dãy con 


đó. 

INCSEQ. INP INCSEQ. OUT 

11 8 

1238945620910 |a[1] = 1 
a[2] = 2 
a[3] = 3 
a[6] = 4 
a[7] = 5 
a[8] = 6 
a[10] = 9 
a[11] = 10 


Cách giải: 
Bồ sung vào A hai phần tử: ao = -œ và anı = +0. Khi đó dãy con đơn điệu tăng dài nhất 
chắc chắn sẽ bắt đầu từ ao và kết thúc ở d„+¡. 


Với Vi:0<ïi<n + 1. Ta sẽ tính L[ï] = độ dài dãy con đơn điệu tăng dài nhất bắt đầu tại a;. 
3.1.1. Cơ sở quy hoạch động (bài toán nhỏ nhất): 


Lịn + 1] = Độ dài dãy con đơn điệu tăng dài nhất bắt đầu tại an:¡ = +0. Dãy con này chỉ gồm 


mỗi một phần tử (+œ) nên L[n + 1] = 1. 


3.1.2. Công thức truy hồi: 

Giá sử với i chạy từ n về 0, ta cần tính L[i]: độ dài dãy con tăng dài nhất bắt đầu tại a, LD 
được tính trong điều kiện L[i + 1], L[i + 2]. ..., LỊn + 1] đã biết: 

Dãy con đơn điệu tăng dài nhất bắt đầu từ a; sẽ được thành lập bằng cách láy a; ghép vào đầu 


một trong số những dãy con đơn điệu tăng dài nhất bắt đầu tại vị trí aj đứng sau ai. Ta sẽ chọn 
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dãy nào để ghép a; vào đầu? Tất nhiên là chỉ được ghép ai vào đầu những dãy con bắt đầu tại 
aj nào đó lớn hơn ai (để đảm bảo tính tăng) và đĩ nhiên ta sẽ chọn dãy dài nhất để ghép ai vào 
đầu (để đảm bảo tính dài nhất). Vậy L[i] được tính như sau: Xét tất cå các chỉ số j trong 
khoảng từ i + 1 đến n + 1 mà aj > ai, chọn ra chỉ số jmax có L[jmax] lớn nhất. Đặt LỊi] := 


L[jmax| + 1. 


3.1.3. Truy vết 


Tại bước xây dựng dãy L, mỗi khi gán L[i] := L[jmax] + 1, ta đặt T[i] = jmax. Đề lưu lại rằng: 
Dãy con dài nhất bắt đầu tại ai sẽ có phần tử thứ hai kế tiếp là 8imax. 

Sau khi tính xong hay dãy L và T, ta bắt đầu từ 0. T[0] là phần tử đầu tiên được chọn, 

T[T[0]] là phần tử thứ hai được chọn, 


T[T[T[0]]] là phân tử thứ ba được chọn ...Quá trình truy vêt có thê diễn tả như sau: 
i := TỊ0]; 
while i <> n + 1 do {Chùng nào chua duyệt đến số a,,;=+ø ở cuối} 
begin 
<Thông báo chọn a;> 
ita Tilil; 
end; 


Ví dụ: với A = (5, 2, 3, 4, 9, 10, 5, 6, 7, 8). Hai dãy L và T sau khi tính sẽ là: 


Calculating 
i 0 1 2 3 4 5 6 7 8 9 10 ll 
a, |- 5 2 3 4 9 10 5 6 H +o 
9 5 8 7 6 3 2 5 4 3 2 l 

8 3 4 7 6 II 8 9 10 II 
Å—__ l l 


Tracing 


Hình 49: Tính toán và truy vét 


program LongestSubSequence; 
const 
InputFile 
OutputFile 
max = 5000; 
var 
a, L, T: array[0..max + 1] of Integer; 
n: Word; 


'TNCSEQ. TNP ' ; 
' INCSEQ.OUT' ; 


procedure Enter; 

var 
i: Word; 
f: Text; 

begin 
Assign(f, InputFile); Reset(f) ; 
ReadIn (f, n); 
for i := 1 to n do Read(f, a[i]) ; 
Close (f); 

end; 


Đại học Sw phạm Hà Nội, 1999-2002 


Quy hoạch động Q 145 ~ 


procedure Optimize; (Quy hoạch động} 
var 
i, j, jmax: Word; 
begin 
a[0] := -32768; a[n + 1] := 32767; (Thêm hai phàn tủ canh hai đầu dãy a} 
L[n + 1] := 1; (Điển cơ sở quy hoach động vào bảng phương án} 
for i := n downto 0 do {Tính bảng phương án} 
begin 
(Chọn trong các chỉ số j đứng sau i thoả mãn aj > a; ra chỉ số jmax có L[jmax] lớn nhất} 
jmax := n † 1; 
for j :=i+1ton+1 do 
if (a[j] > a[i]) and (L[j] > L[jmax]) then jmax := j; 
L[i] := L[jmax] + 1; {Luu độ dài dãy con tăng dài nhất bắt đầu tại a;} 
T[i] := jmax; {Lưu vết: phần tử đúng liền sau a; trong dãy con tăng dài nhật đó là ajmax} 
end; 
end; 


procedure Result; 
var 
f: Text; 
i: Integer; 
begin 
Assign(f, OutputFile); Rewrite (f); 
WriteLn(f, L[0] - 2); (Chiều dài dãy con tăng dài nhất) 
i := T[0]; (Bất đầu truy vết tìm nghiện) 
while i © n + 1 do 
begin 
WriteLn(f, 'a[', i, '] = ', afält: 
i := T[i]; 
end; 
Close (f); 
end; 


begin 
Enter; 
Optimize; 
Result; 
end. 


Nhận xét: Công thức truy hồi tính các L[.] có thể tóm tắt là: 


Lin +l]:=0 
L[ï]:= max L[j]+1(Vi = 0,n) 
1<j<n+ 


DES 
và để tính hết các LỊ.], ta phải mất một đoạn chương trình với độ phức tạp tính toán là O(n?). 
Ta có thể cải tiến cách cài đặt để được một đoạn chương trình với độ phức tạp tính toán là 
O(nlogn) bằng kỹ thuật sau: 

Với mỗi số k, ta gọi StartOf[k] là chỉ số x của phần tử a[x] thoả mãn: dãy đơn điệu tăng dài 
nhất bắt đầu từ a[x] có độ dài k. Nếu có nhiều phần tử a[.] cùng thoả mãn điều kiện này thì ta 
chọn phần tử a[x] là phần tử lớn nhất trong số những phần tử đó. Việc tính các giá trị StartOf][.] 
được thực hiện đồng thời với việc tính các giá trị LỊ.] bằng phương pháp sau: 

L[n + 1] := 1; 

§tart0f[1] :=n + 1; 

m := 1; {m là độ dài dãy con đơn điệu tăng dài nhật của dãy ai; aisr mr an (ở bước khởi tạo này i= n + 1)} 


for i := n downto 0 do 
begin 
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<Tính L[i]; đặt k := L[i]>; 
if k > m then (Nếu dãy con tăng dài nhất bắt đầu tại a[i] có độ dài > m} 
begin 
m := k; (Cập nhật lại m} 
Start0f[k] := i; {Gán giá trị cho Start0f[m]} 
end 
else 
if a[i] > a[Start0f[k]] then (Nếu có nhiều dãy đơn điệu tăng dài nhất độ dài k thì) 
§tart0f[k] := i; {chi ghi nhận lại dãy có phần tử bắt đầu lớn nhất} 
end; 
Khi bắt đầu vào một lân lặp với một giá trị 1, ta đã biệt được: 


m: Độ dài dãy con đơn điệu tăng dài nhất của dẫy ai+1, 8+2, ..., Berti 

StartOf[k] (1 < k < m): Phần tử 8starork] là phần tử lớn nhất trong số các phần tử a¡-, a¡:2, ..., 
an+ı thoả mãn: Dãy con đơn điệu tăng dài nhất bắt đầu từ astron có độ dài k. Do thứ tự tính 
toán được áp đặt như trong sơ đồ trên, ta dễ dàng nhận thấy rằng: asanoqkj < astartoffk - 1 
<...âStanOfI]- 

Điều kiện để có dãy con đơn điệu tăng độ dài p+1 bắt đầu tại ai chính là asazoapj> ai (vì theo 
thứ tự tính toán thì khi bắt đầu một lần lặp với giá Im i, astartofīp] luôn đứng sau ai). Mặt khác 
nếu đem a: ghép vào đầu dãy con đơn điệu tăng dài nhất bắt đầu tại asaxorrp mà thu được dãy 
tăng thì đem a; ghép vào đầu dãy con đơn điệu tăng dài nhất bắt đầu tại asaroip-¡ ta cũng thu 
được dãy tăng. Vậy đề tính L[i], ta có thể tìm số p lớn nhất thoả mãn 8StarOfIp|> 8i bằng thuật 


toán tìm kiếm nhị phân rồi đặt L[i] := p + 1 (và sau đó T[i] := StartOf[p], tất nhiên) 


program IongestS5ub§equence ; 
const 
InputFile = 'TNCSEQ.INP'; 
OutputFile = 'INCSEQ.OUT' ; 
const 
max = 5000; 
var 
a, L, T, StartOf: array[0..max + 1] of Integer; 
n, m: Integer; 


procedure Enter; 

var 
i: Word; 
f: Text; 

begin 
Assign(f, InputFile); Reset(f); 
ReadIn (f, n); 
for i := 1 to n do Read(f, a[i]) ; 
Close (f); 

end; 


procedure Init; 
begin 
a[0] := -32768; 
a[n + 1] := 32767; 
m := 1; 
l{n + 1] := 1; 
Start0f[1] := n + 1; 
end; 


Đại học Sw phạm Hà Nội, 1999-2002 


Quy hoạch động Q 147 ~ 


(Hàm Find, tìm vị trí j mà nếu đem a; ghép vào đầu dãy con đơn điệu tăng dài nhất bát đầu tù aj sẽ được dãy đơn 
điệu tăng dài nhất bất đầu tại a;} 
function Find(i: Integer): Integer; 
var 
inf, sup, median, j: Integer; 
begin 
inf := 1; sup :=m+ 1; 
repeat (Thuật toán tìm kiếm nhị phân) 
median := (inf + sup) div 2; 
j := StartOf [median] ; 
if a[j] > a[i] then inf := median {Luôn để astartot(int] > â; È Astartof [sup] } 
else sup := median; 
until inf + 1 = sup; 
Find := StartOf[inf]; 
end; 


procedure Optimize; 


var 
i, j, k: Integer; 
begin 
for i := n downto 0 do 
begin 
j := Find(i); 
k := L[j] +1; 
if k > m then 
begin 
m := k; 
Start0f[k] := i; 
end 
else 
if a[Start0f[k]] < a[i] then 
Start0f[k] := i; 
L[i] := k; 
T[i] := j; 
end; 
end; 


procedure Result; 
var 
f: Text; 
i: Integer; 
begin 
Assign(f, OutputFile); Rewrite (f); 
WriteLn(f, m - 2); 
i := T[0]; 
while i © n + 1 do 
begin 
WriteLn(f, 'a[', i, '] = ', afält: 
i := T[i]; 
end; 
Close (f); 
end; 


begin 
Enter; 
Init; 
Optimize; 
Result; 
end. 


Dễ thấy chi phí thời gian thực hiện giải thuật này cấp O(nlogn), đây là một ví dụ điển hình 


cho thấy rằng một công thức truy hồi có thé có nhiều phương pháp tính. 
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3.2. BÀI TOÁN CÁI TÚI 


Trong siêu thị có n gói hàng (n < 100), gói hàng thứ i có trọng lượng là W; < 100 và trị giá V; 
< 100. Một tên trộm đột nhập vào siêu thị, tên trộm mang theo một cái túi có thể mang được 
tối đa trọng lượng M ( M < 100). Hỏi tên trộm sẽ lấy đi những gói hàng nào để được tông giá 
trị lớn nhất. 
Input: file văn bản BAG.INP 

e Dòng 1: Chúa hai số n, M cách nhau ít nhất một dấu cách 

e n dòng tiếp theo, dòng thứ i chứa hai số nguyên dương W;, Vị cách nhau ít nhất một 

dấu cách 

Output: file văn bản BAG.OUT 

e Dòng 1: Ghi giá trị lớn nhất tên trộm có thể lấy 


e Dòng 2: Ghi chỉ số những gói bị lấy 


BAG. INP | BAG.OUT 
5 11 11 
33 321 


Cách giải: 

Nếu gọi EI, j] là giá trị lớn nhất có thể có bằng cách chọn trong các gói {1, 2, ..., i} với giới 
hạn trọng lượng j. Thì giá trị lớn nhất khi được chọn trong số n gói với giới hạn trọng lượng 
M chính là F[n, M]. 


3.2.1. Công thức truy hồi tính EI, j]. 
Với giới hạn trọng lượng J, việc chọn tối ưu trong số các gói {1,2,...,1!- 1,1} để có giá tri lớn 
nhất sẽ có hai khả năng: 
Nếu không chọn gói thứ i thì F[i, j] là giá trị lớn nhất có thể bằng cách chọn trong số các gói 
{1,2,...,1- 1} với giới hạn trọng lượng là j. Tức là 
Fịi, j] = Fli - 1, j] 

Nếu có chọn gói thứ i (tất nhiên chỉ xét tới trường hợp này khi mà W; < j) thì F[i, j] bằng giá 
trị gói thứ i là Vị cộng với giá trị lớn nhất có thể có được băng cách chọn trong số các gói {1, 
2,...,1- 1} với giới hạn trọng lượng j - Wi. Tức là về mặt giá trị thu được: 

E. j] = Vị + F[i - 1,J- W¡] 
Vì theo cách xây dựng F[i, j] là giá trị lớn nhất có thể, nên F[i, j] sẽ là max trong 2 giá trị thu 


được ở trên. 
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3.2.2. Cơ sở quy hoạch động: 


Dễ thấy F[0, j] = giá trị lớn nhất có thê bằng cách chọn trong số 0 gói = 0. 


3.2.3. Tính bảng phương án: 

Bảng phương án F gồm n + 1 dòng, M + 1 cột, trước tiên được điền cơ sở quy hoạch động: 
Dòng 0 gồm toàn số 0. Sử dụng công thức truy hòi, dùng dòng 0 tính dòng 1, dùng dòng 1 
tính dòng 2, v.v... đến khi tính hết dòng n. 


F 0 1 Si 2 geg M 
0 HE Love 0 


0 
1 
2 


3.2.4. Truy vét: 

Tính xong bảng phương án thì ta quan tâm đến F[n, M] đó chính là giá trị lớn nhất thu được 
khi chọn trong cả n gói với giới hạn trọng lượng M. Nếu F[n, M] = F[n - 1, M] thì tức là 
không chọn gói thứ n, ta truy tiếp F[n - 1, M]. Còn nếu F[n, M] + F[n - 1, M] thì ta thông báo 
rằng phép chọn tối ưu có chọn gói thứ n và truy tiếp F[n - 1, M - Wal, Cứ tiếp tục cho tới khi 


truy lên tới hàng 0 của bảng phương án. 


program The _Bag; 
const 
InputFile = 'BAG.TNP'; 
OutputFile = 'BAG.OUT' ; 
max = 100; 
var 
W, V: Array[1..max] of Integer; 
F: array[0..max, 0..max] of Integer; 
n, M: Integer; 


procedure Enter; 
var 
i: Integer; 
fi: Text; 
begin 
Assign (fi, InputFile); Reset (fi); 
Readln (fi, n, M); 
for i := 1 to n do Readln(fi, W[i], V[i]); 
Close (f1) ; 
end; 


procedure Optimize; (Tính bảng phương án bằng công thức truy hôi} 
var 

i, j: Integer; 
begin 

FillChar(F[0], §ize0f(F[0]), 0); (Điển co sở quy hoạch động) 
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for i := 1 to n do 
for j := 0 to M do 

begin (Tính F[i, j]} 

F[i, j] := F[i - 1, j]; (Giả sử không chọn gói thú i thì Fli, j] = Fli - 1, j]} 
{Sau đó đánh giá: nếu chọn gói thú i sẽ được lợi hơn thì đặt lại F[i, ]]] 

if (j >= W[i]) and 

(Fli, j] < Fli - 1, j - W[i]] + V[i]) then 
Fli, j] := F[i - 1, j - W[i]] + Vlil; 
end; 
end; 


procedure Trace; (Truy vết tìm nghiệm tối ưu] 
var 
fo: Text; 
begin 
Assign (fo, OutputFile); Rewrite (fo); 
WriteLn(fo, F[n, M]); {In ra giá trị lớn nhất có thể kiếm được] 
while n <> 0 do {Truy vết trên bảng phương án từ hàng n lên hàng 0} 
begin 
if Bin, M] <> F[n - 1, M] then (Nếu có chọn gói thứ n} 
begin 
Write(fo, n, ' '); 
M := M- W[n]; (Đã chọn gói thứ n rồi thì chỉ có thể mang thêm được trọng lượng M - W, nữa thôi] 
end; 
Dec (n) ; 
end; 
Close (fo) ; 
end; 


begin 
Enter; 
Optimize; 
Trace; 
end. 


3.3. BIEN ĐÔI XÂU 


Cho xâu ký tų X, xét 3 phép biến đổi: 

a) Insert(i, C): i là số, C là ký tự: Phép Insert chèn ký tự C vào sau vị trí i của xâu X. 

b) Replace(i, C): i là số, C là ký tự: Phép Replace thay ký tự tại vị trí i của xâu X bởi ký tự C. 
c) Delete(): i là số, Phép Delete xoá ký tự tại vị trí i của xâu X. 

Yêu cầu: Cho trước xâu Y, hãy tìm một số ít nhất các phép biến đổi trên dé biến xâu X thành 
xâu Y. 

Input: file văn bản STR.INP 

Dòng 1: Chứa xâu X (độ dài < 100) 

Dòng 2: Chứa xâu Y (độ dài < 100) 

Output: file văn bản STR.OUT ghi các phép biến đổi cần thực hiện và xâu X tại mỗi phép 


biên đôi. 
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STR. INP STR. OUT 

PBBCEFATZQABCDABEFA | 7 

PBBCEFATZ -> Delete(9) -> PBBCEFAT 
PBBCEFAT -> Delete (8) -> PBBCEFA 

PBBCEFA -> Insert(4, B) -> PBBCBEFA 
PBBCBEFA -> Insert (4, A) -> PBBCABEFA 
PBBCABEFA -> Insert(4, D) -> PBBCDABEFA 
PBBCDABEFA -> Replace(2, A) -> PABCDABEFA 
PABCDABEFA -> Replace(1, Q) -> QABCDABEFA 


Cách giái: 

Đối với xâu ký tự thì việc xoá, chèn sẽ làm cho các phần tử phía sau vi trí biến đổi bị đánh chỉ 
số lại, gây khó khăn cho việc quản lý vị trí. Để khắc phục điều này, ta sẽ tìm một thứ tự biến 
đổi thoả mãn: Phép biến đổi tại vị trí i bắt buộc phải thực hiện sau các phép biến đổi tại vị trí i 
+1,1+2,.. 

Vi dụ: X = ⁄4BCD} 

Insert(0, E) sau đó Delete(4) cho ra X = 'EABD'. Cách này không tuân thủ nguyên tắc 
Delete(3) sau đó Insert(0, E) cho ra X = 'EABD'. Cách này tuân thủ nguyên tắc dè ra. 


Nói tóm lại ta sẽ tìm một dãy biến đôi có vị trí thực hiện giảm dần. 

3.3.1. Công thức truy hồi 

Giả sử m là độ dài xâu X và n là độ dài xâu Y. Gọi EI, j] là số phép biến đối tối thiêu để biến 
xâu gồm i ký tự đầu của xâu X: X¡X;... X; thành xâu gồm j ký tự đầu của xâu Y: Y¡Y¿... Ni 
Quan sát hai dãy X và Y 


Ta nhận thấy: 
Nếu Xn = Y, thì ta chỉ cần biến đoạn XıX2...Xm-1 thành NN: Wat 


nlxl -- |: |xe] 
oiod — Las 


Tức là trong trường hợp nảy: F[m, n] = F[m - 1, n - 1] 


Nếu Xm # Yn thì tại vị trí Xm ta có thể sử dụng một trong 3 phép biến đổi: 
a) Hoặc chèn vào sau vị trí m của X, một ký tự đúng bằng Y„: 


x| s| ls ln 


f a -- |92|n] 
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Thì khi đó F[m, n] sẽ bằng 1 phép chèn vừa rồi cộng với số phép biến đổi biến dãy 
XI1...Xm thành dãy YI...Yn-I: F[m, n] = 1 + F[m, n - 1] 
b) Hoặc thay vị trí m của X bằng một ký tự đúng bằng Y„: 


Thì khi đó F[m, n] sẽ bằng 1 phép thay vừa rồi cộng với số phép biến đổi biến dãy 
Ni... Kant thành dãy Vic Y a F[m, n] =]+ F[m-1, n- 1] 


c) Hoặc xoá vị trí thứ m của X: 


Thì khi đó F[m, n] sẽ bằng 1 phép xoá vừa rồi cộng với số phép biến đổi biến dãy Xı...Xm-1 
thành dãy Vi, Ne F[m, n] = 1 + F[m-1, n] 
Vì F[m, n] phải là nhỏ nhất có thể, nên trong trường hợp Xm + Yn thì 
F[m, n] = min(F[m, n - 1], F[m - 1, n - 1], F[m - 1, n]) + 1. 


Ta xây dựng xong công thức truy hồi. 


3.3.2. Cơ sở quy hoạch động 

F[0, j] là số phép biến đổi biến xâu rỗng thành xâu gồm j ký tự đầu của F. Nó cần tối thiểu j 
phép chèn: F[0, J| = J 

F[i, 0] là số phép biến đổi biến xâu gồm i ký tự đầu của S thành xâu rỗng, nó cần tối thiểu i 
phép xoá: El, 0] =1 

Vậy đầu tiên bảng phương án F (cð[0..m, 0..n]) được khởi tạo hàng 0 và cột 0 là cơ sở quy 
hoạch động. Từ đó dùng công thức truy hồi tính ra tất cả các phần tử bảng B. 

Sau khi tính xong thì F[m, n] cho ta biết số phép biến đổi tối thiểu. 

Truy vết: 

Nếu Xm = Y, thì chỉ việc xét tiếp F[m - 1, n - 1]. 

Nếu không, xét 3 trường hợp: 

Nếu F[m, n] = F[m, n - 1] + 1 thì phép biến đổi đầu tiên được sử dụng là: Insert(m, Yn) 


Nếu F[m, n] = F[m - 1, n - 1] + 1 thì phép biến dëi đầu tiên được sử dụng là: Replace(m, Yn) 


Nếu F[m, n] = F[m - 1, n] + 1 thì phép biến đổi đầu tiên được sử dụng là: Delete(m) 
Đưa về bài toán với m, n nhỏ hơn truy vết tiếp cho tới khi về F[0, 0] 


Vị dụ: X =' ABCD'; Y ='EABD' bảng phương án là: 
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Hình 50: Truy vết 


Lưu ý: khi truy vết, dë tránh truy nhập ra ngoài bảng, nên tạo viền cho bảng. 


program Str0pt; 


const 
TnputFile = 'STR.INP'; 
OutputFile = 'STR.OUT'; 
max = 100; 

Var 


X, Y: String[2 * max]; 
F: array[-l..max, -1..max] of Integer; 
m, n: Integer; 


procedure Enter; 
var 
fi: Text; 
begin 
Assign (fi, InputFile); Reset (fi); 
ReadIn (fi, X); Readln(fi, Y); 
Close (f1) ; 
m := Length(X); n := Length(Y) ; 
end; 


function Min3(x, y, z: Integer): Integer; 
var 

t: Integer; 
begin 

if x < y then t : 


x else t := y; 


if z < t then t := z; 
Min3 := t; 
end; 


procedure Optimize; 
var 
i, j: Integer; 
begin 
{Khói tạo vin cho bảng phuong án) 
for i := 0 to m do F[i, -1] := max + 1; 
for j := 0 to n do F[-1, j] := max + 1; 
{Lưu cơ sở quy hoạch động} 
for j := 0 to n do F[0, j] := j; 
for i := 1 to m do F[i, 0] := i; 


{Cho giá trị nhỏ nhất trong 3 giá trị x, Y, z} 


{Dùng công thức truy hổi tính toàn bảng phương án} 


for i := 1 to m do 
for j := 1 to n do 


if x[i] = Y[j] then Fli, j] := Fli - 1, j - 1] 
else F[i, j] := Min3(F[i, j - 1], Fli - 1, j - 1], Fli - 1, j]) +1; 


end; 
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procedure Trace; (Truy vết) 
var 
fo: Text; 
begin 
Assign(fo, O0utputFile) ` Rewrite (fo) ; 
Writeln(fo, F[m, nii: (in, n] chính là số ít nhất các phép bién đổi cần thực hiên} 
while (m <> 0) or (n <> 0} do (Vòng lặp kết thúc khi m = n = 0} 
if X[m] = Y[n] then {Hai ký tụ cuối của 2 xâu giống nhau] 


begin 
Dec (m); Dec(n); {Chỉ việc truy chéo lên trên bảng phương án} 
end 
else (Tại đây cần một phép biến đổi) 
begin 


Write(fo, X, ' -> '); {In ra xâu X trước khi biến đổi) 
if Bin, n] = F[m, n - 1] + 1 then (Nếu đây là phép chèn} 
begin 
Write(fo, 'Insert(', m, ', ', Y[n], ')'); 
Tnsert(Y[n], X, m + 1); 
Dec(n); (Truy sang phải} 


end 
else 
if Bin, n] = F[m - 1, n- 1] + 1 then (Nếu đây là phép thay) 
begin 
Write(fo, 'Replace(', m, ', ', Y[n], ')'); 
X[m] := Yịn]; 
Dec (m); Dec(n); {Truy chéo lên trên} 
end 
else (Nếu đây là phép xoá) 
begin 


Write(fo, 'Delete(', m, ')'); 

Delete(X, m, 1); 

Dec(m); (Truy lên trên} 

end; 
Writeln(fo, ' -> ', X); {In ra xâu X sau phép biến dôi} 
end; 
Close (fo); 
end; 


begin 
Enter; 
Optimize; 
Trace; 
end. 


Bài này giải với các xâu < 100 ký tự, néu lưu bảng phương án dưới dạng mảng cấp phát động 
thì có thể làm với các xâu 255 ký tự. (Tốt hơn nên lưu mỗi dòng của bảng phương án là một 
mảng cấp phát động 1 chiều). Hãy tự giải thích tại sao khi giới hạn độ dài dữ liệu là 100, lại 
phải khai báo X và Y là String[200] chứ không phải là String[100] 2. 

3.4. DAN CON CÓ TÓNG CHIA HÉT CHO K 


Cho một dãy gồm n (1 < n < 1000) số nguyên dương A: A2, ..., An và số nguyên đương k (k 
< 50). Hãy tìm dãy con gồm nhiều phần tử nhất của dãy đã cho sao cho tổng các phần tử của 
dãy con này chia hết cho k. 
Input: file văn bản SUBSEQ.INP 

e Dòng 1: Chúa số n 


e Dòng 2: Chúa n số Ái, A¿,..., An cách nhau ít nhất một dấu cách 
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Output: file văn bản SUBSEQ.OUT 
e Dòng 1: Ghi độ dài dãy con tìm được 
e Các dòng tiếp: Ghi các phần tử được chọn vào dãy con 


e Dòng cuối: Ghi tông các phần tử của dãy con đó. 


SUBSEQ. INP SUBSEQ. OUT 

10 5 8 

16115101520249 | a[10]=9 
a[9] = 4 
a[7] = 20 
a[6] = 15 
a[5] = 10 
a[4] =5 
a[3] = 11 
a[2] = 6 
Sum = 80 


3.4.1. Cách giải 1 
Đề bài yêu cầu chọn ra một số tối đa các phần tử trong dãy A đề được một dãy có tông chia 
hết cho k, ta có thể giải bài toán bằng phương pháp duyệt tổ hợp bằng quay lui có đánh giá 
nhánh cận nhằm giảm bớt chỉ phí trong kỹ thuật vét cạn. Dưới đây ta trình bày phương pháp 
quy hoạch động: 
Nhận xét 1: Không ảnh hưởng đến kết quả cuối cùng, ta có thể đặt: 
A¡:= A; mod k với VI: [ <i<n 

Nhận xét 2: Gọi S là tổng các phần tử trong mảng A, ta có thê thay đổi cách tiếp cận bài toán: 
thay vì tìm xem phải chọn ra một số tối đa những phần tử đề có tổng chia hết cho k, ta sẽ chọn 
ra một số tôi thiểu các phần tử có tổng đồng dư với S theo modul k. Khi đó chỉ cần loại bỏ 
những phần tử này thì những phần tử còn lại sẽ là kết quả. 
Nhận xét 3: Số phần tử tối thiểu cần loại bỏ bao giờ cũng nhỏ hơn k 
Thật vậy, giả sử số phần tử ít nhất cần loại bỏ là m và các phần tử cần loại bỏ là Aip Aip o 
AI. Các phần tử này có tổng đồng dư với S theo mô-đun k. Xét các dãy sau 

Dãy 0 := () = Dãy rỗng (Tổng = 0 (mod Ki 
Dấãy 1 := (AI) 
Dãy 2 := (Ai, A1. 
Dấãy 3 := (A¡, AI, AL) 
Dãy m := (AI, Ai, Lars AI) 
Như vậy có m + 1 dãy, nếu mz k thì theo nguyên lý Dirichlet sẽ tồn tại hai dãy có tổng đồng 
dư theo mô-đun k. Giả sử đó là hai dãy: 


Ai tAi, +... TÀI =Ai, +Ai, +... CÀI +A; 


+... + Ai (mod k) 
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Suy ra Ai +... + A, chia hết cho k. Vậy ta có thể xoá hết các phần tử này trong dãy đã 
chọn mà vẫn được một dãy có tông đồng dư với S theo modul k, mâu thuẫn với giả thiết là 
dãy đã chọn có số phần tử tối thiểu. 

Công thức truy hồi: 

Nếu ta gọi F[i, t] là số phần tử tối thiểu phải chọn trong dãy A¡, A2, ..., A; để có tổng chia k 
dư t. Nếu không có phương án chọn ta coi F[i, t] = +% . Khi đó F[i, d được tính qua công thức 
truy hồi sau: 

Nếu trong dãy trên không phải chọn A; thì F[i, t] = F[i - 1, t]; 

Nếu trong dãy trên phải chọn A; thì F[i, t] = 1 + F[i - 1,t—A, ](t—A, ở đây hiểu là phép trừ 


trên các lớp đồng dư mod k. Ví dụ khi k = 7 thì 1-3 = 5) 

Từ trên suy ra F[i, t] = min (F[i - 1, t], 1 + F[i - 1, t - A 

Còn tất nhiên, cơ sở quy hoạch động: F(0, 0) = 0; F(0, i) = + (với Vi: 1 <i <k). 
Bảng phương án F có kích thước [0..n, 0.. k - 1] tối đa là 1001x50 phần tử kiểu Byte. 


program SubSequence; 

const 
InputFile = 'SUBSEQ.INP'; 
OutputFile = 'SUBSEQ.OUT' ; 


maxN = 1000; 
maxK = 50; 
var 


a: array[1..maxN] of Integer; 
f: array[0..maxN, 0..maxK - 1] of Byte; 
n, k: Integer; 


procedure Enter; 

var 
fi: Text; 
i: Integer; 

begin 
Assign (fi, InputFile); Reset (fi); 
ReadIn (fi, n, k); 
for i := 1 to n do Read(fi, a[i]); 
Close (f1) ; 

end; 


function Sub(x, y: Integer): Integer; (Tính x - y (theo mod k)} 
Var 
tmp: Integer; 
begin 
tmp := (x - y) mod k; 
if tmp >= 0 then Sub := tmp 
else Sub := tmp + k; 
end; 


procedure Optimize; 

var 
i, t: Integer; 

begin 
FillChar (f, SizeOf(f), $FF); (Khỏi tạo các phàn tù f[0, .] dèu bằng 255 (ail 
f[0, 0] := 0; (Ngoại trò f[0, 0] := 0} 
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for i := 1 to n do 


for t := 0 tok - 1 do {Tính f[i, t] := min (f[i - 1, t], f[i - 1, Sub(t, a¡)] + 1} 
if f[i - 1, t] < f[i - 1, Sub(t, a[i])] + 1 then 
f[i, t] := f[i - 1, t] 


else 


f[i, t] := f[i - 1, Sub(t, a[i])] + 1; 


end; 


procedure Result; 
var 
fo: Text; 
i, t: Integer; 
SumAll, Sum: LongInt; 
begin 
SumAll := 0; 


for i := 1 to n do SumAll := SumAll + a[i]; 
Assign (fo, OutputFile); Rewrite (fo) ; 
Writeln(fo, n - f[n, SumAll mod k]); {n - số phần tử bỏ đi = số phần tủ giữ lại) 


i := n; t := SumAll mod k; 
Sum := 0; 
for i := n downto 1 do 


if f[i, t] = f[i - 1, t] then (Nếu phương án tối ưu không bỏ a,, tức là có chọn a;} 


begin 
Writeln(fo, "al", i, 
Sum := Sum + a[i]; 
end 
else 
t := Sub(t, a[i]); 
Writeln(fo, 'Sum = ', Sum); 
Close (fo) ; 
end; 


begin 
Enter; 
Optimize; 
Result; 
end. 


3.4.2. Cách giải 2 


'] = ', 411); 


Q 157 ~ 


Phân các phàn tử trong dãy a theo các lớp đồng dw modul k. Lớp i gồm các phần tử chia k dư 


i. Gọi Count[i] là số lượng các phần tử thuộc lớp i. 


Với 0 <1,t< k; Gọi f[i, t] là ső phàn tử nhiều nhất có thể chọn được trong các lớp 0, 1, 2,..., 1 


dë được tông chia k dư t. Trong trường hợp có cách chọn, gọi Trace[i, t] là số phần tử được 


chọn trong lớp i theo phương án này, trong trường hợp không có cách chọn, Trace[l, t] được 


coi là -1. 


Ta dễ thấy răng f[0, 0] = Count[0], Trace[0, 0] = Count[0], còn Trace[0, i] với ¡Z0 bằng -1. 


Với i> 1; 0 <t< k, nếu có phương án chọn ra nhiều phần tử nhất trong các lớp từ 0 tới i để 


được tổng chia k dư t thì phương án này có thể chọn j phần tử của lớp i (0 < j < Counf[ï]), néu 


bỏ j phần tử này đi, sẽ phải thu được phương án chọn ra nhiều phần tử nhất trong các lớp từ 0 


tới ¡ - 1 để được tổng chia k du t—¡* j. Từ đó suy ra công thức truy hồi: 
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` "=.. 
B0 ho H1] 1| +) 


Trace[i—l,t—j*i)#—l 
Traceli,t]= argmax (f[i-l,t—j*i]+j) 
0<j<Count[i] 
Trace[i—l,t—j*i)#—I 


program Sub§equence; 
const 
InputFile = 'SUBSEQ.TNP'; 


OutputFile = 'SUBSEQ.OUT' ; 
maxN = 1000; 
maxK = 50; 

var 


a: array[1..maxN] of Integer; 

Count: array[0..maxK - 1] of Integer; 

f, Trace: array[0..maxK - 1, 0..maxK - 1] of Integer; 
n, k: Integer; 


procedure Enter; 
var 
fi: Text; 
i: Integer; 
begin 
Assign (fi, InputFile); Reset (fi); 
Readln (fi, n, k); 
FillChar (Count, Size0f (Count), 0); 
for i := 1 to n do 
begin 
Read (fi, a[i]) ; 
Inc(Count[a[i] mod k]); (Nhập dữ liệu đồng thời với việc tính các Count[.]] 
end; 
Close (fi) ; 
end; 


function Sub(x, y: Integer): Integer; 
var 
tmp: Integer; 
begin 
tmp := (x - y) mod k; 
if tmp >= 0 then Sub := tmp 
else Sub := tmp + k; 
end; 


procedure Optimize; 
var 
i, j, t: Integer; 
begin 
FillChar (f, Size0f (f), 0); 
f[0, 0] := Count[0]; 
FillChar (Trace, Size0f (Trace), $FF); (Khởi tạo các mång Trace=-1} 
Trace[0, 0] := Count[0]; {Ngoại trờ Trace[0, 0] = Count[0]} 
for i := 1 tok - 1 do 
for t := 0 tok - 1 do 
for j := 0 to Count[i] do 
if (Trace[i - 1, Sub(t, j * i)] © -1) and 
ID, t] < f[i - 1, Sub(t, j * i)] + j) then 
begin 
f[i, t] := f[i - 1, Sub(t, j * i)] +j; 
Trace[i, t] := j; 
end; 
end; 
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procedure Result; 
var 
fo: Text; 
i, t, j: Integer; 
Sum: LongInt; 


begin 
t := 0; 
{Tính lại các Count[i] := Só phần tử phương án tối ưu sẽ chọn trong lớp i} 
for i := k - 1 downto 0 do 
begin 


j := Trace[i, t]; 
t := §ub(t, j * i); 
Count[i] := j; 
end; 
Assign (fo, OutputFile); Rewrite (fo) ; 
Writeln(fo, f[k - 1, 0]); 
Sum := 0; 
for i := 1 to n do 
begin 
t := a[i] mod k; 
if Count[t] > 0 then 
begin 
Writeln(fo, 'a[', i, '] = ', a[i]); 
Dec (Count[t]); 
Sum := Sum + a[i]; 
end; 
end; 
Writeln(fo, 'Sum = ', Sum); 
Close (fo) ; 
end; 


begin 
Enter; 
Optimize; 
Result; 
end. 


Cách giải thứ hai tốt hơn cách giải thứ nhất vì nó có thê thực hiện với n lớn. Ví dụ này cho 
thấy một bài toán quy hoạch động có thể có nhiều cách đặt công thức truy hồi để giải. 

3.5. PHÉP NHÂN TÔ HỢP DAN MA TRẬN 

Với ma trận A kích thước pxq và ma trận B kích thước qxr. Người ta có phép nhân hai ma 


trận đó để được ma trận C kích thước DT. Mỗi phần tử của ma trận C được tính theo công 


thức: 
q 
GE Aw Hi I<I<p,l<J<r 
k=l 
Ví dụ: 
A là ma trận kích thước 3x4, B là ma trận kích thước 4x5 thì C sẽ là ma trận kích thước 3x5 
1 0O 2]410 
1 2 3 4 14 6 
E, 0 Oral) 
5 6 7 8 =| 34 14 
——— NN KC U:l 61 
9 10 11 12 54 22 
1 1 1/11 
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Đề thực hiện phép nhân hai ma trận A(mxn) và B(nxp) ta có thể làm như đoạn chương trình 
Sau: 


for i := 1 top do 
for j := 1 to r do 
begin 
Do = 0; 
for k := 1 to q do cij := Ci + ai * bị; 
end; 
Phí tôn đê thực hiên phép nhân này có thê đánh giá qua sô phép nhân, đê nhân hai ma trận 


A(pxq) và B(qxr) ta cần thực hiện p.q.r phép nhân số học. 
Phép nhân ma trận không có tính chất giao hoán nhưng có tính chất kết hợp 

(A*B)*C=A*(B*C) 
Vậy nếu A là ma trận cấp 3x4, B là ma trận cấp 4x10 và C là ma trận cấp 10x15 thì: 
Để tính (A*B)* C, ta thực hiện (A * B) trước, được ma trận X kích thước 3x10 sau 3.4.10 = 
120 phép nhân số. Sau đó ta thực hiện X * C được ma trận kết quả kích thước 3x15 sau 
3.10.15 = 450 phép nhân số. Vậy tông số phép nhân số học phải thực hiện sẽ là 570. 
Đề tính A * (B * C), ta thực hiện (B * C) trước, được ma trận Y kích thước 4x15 sau 4.10.15 
= 600 phép nhân số. Sau đó ta thực hiện A * Y được ma trận kết quả kích thước 3x15 sau 
3.4.15 = 180 phép nhân số. Vậy tông số phép nhân số học phải thực hiện sẽ là 780. 
Vậy thì trình tự thực hiện có ảnh hưởng lớn tới chi phí. Vấn đề đặt ra là tính số phí tôn ít nhất 
khi thực hiện phép nhân một dãy các ma trận: 

M¡*M;*...*Mạ 

Với : 
M; là ma trận kích thước aı X a2 


M: là ma trận kích thước aza x az 


M, là ma trận kích thước an X an+ı 
Input: file văn bản MULTMAT.INP 
e Dòng 1: Chúa số nguyên dương n < 100 
e Dòng 2: Chúa n + 1 số nguyên dương ai, az, ..., an:¡ (Vi: 1 < a; < 100) cách nhau ít 
nhất một dấu cách 
Output: file văn bản MULUTMAT.OUT 
e Dòng 1: Ghi số phép nhân số học tối thiêu cần thực hiện 


e Dòng 2: Ghi biểu thức kết hợp tói ưu của phép nhân dãy ma trận 


MULTMAT.INP || MULTMAT.OUT 
6 31 
3231223 ((M[1] * (M[2] * M[3])) * ((M[4] * M[5]) * M[6])) 
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Trước hết, nếu dãy chỉ có một ma trận thì chi phí bằng 0, tiếp theo ta nhận thấy để nhân môt 
cặp ma trận thì không có chuyện kết hợp gì ở đây cả, chi phí cho phép nhân đó là tính được 
ngay. Vậy thì phí tốn cho phép nhân hai ma trận liên tiếp trong dãy là hoàn toàn có thể ghi 
nhận lại được. Sử dụng những thông tin đã ghi nhận để tối ưu hoá phí tôn nhân những bộ ba 
ma trận liên tiếp ... CỨ tiếp tục như vậy cho tới khi ta tính được phí tôn nhân n ma trận liên 


tiếp. 


3.5.1. Công thức truy hồi: 

Gọi F[i, j] là só phép nhân tối thiểu cần thực hiện để nhân đoạn ma trận liên tiếp: 
M;*M,.;¡*...*M;. Thì khi åó F[i, i] = 0 với VI. 

Để tính M; * M¡.¡ *... * Mj, ta có thể có nhiều cách kết hợp: 

Mi *M.,.¡ *... * Mj = (Mi * Min * 2.. * Mo * (Meni * Mẹ. *... * Mj) (Với 1<k<]) 

Với một cách kết hợp (phụ thuộc vào cách chọn vị trí k), chi phí tói thiêu phải thực hiện bằng: 
Chi phí thực hiện phép nhân M;i * Mi+ı * ... * My = F[i, k] 

Cộng với chi phí thực hiện phép nhân Mv.¡ * Mut... * Mj = F[k + T, J] 

Cộng với chỉ phí thực hiện phép nhân hai ma trận cuối cùng: ma trận tạo thành từ phép nhân 
(Mi * Miri *... * Mx) có kích thước ax at và ma trận tạo thành từ phép nhân (OM: * Mi 
*.... * M;i) có kích thước ay.¡ X a¡.¡, vậy chi phí này là ai * an * aj+1. 

Từ đó suy ra: do có nhiều cách kết hợp, mà ta cần chọn cách kết hợp dë có chỉ phí ít nhất nên 
ta sẽ cực tiêu hoá F[i, j] theo công thức: 


F[i, j] = min(F[i,k] SS F[k + I,j] nh ai ° ak i aja) 


3.5.2. Tính bång phwong án 

Bảng phương án F là bảng hai chiều, nhìn vào công thức truy hồi, ta thấy EI, j] chỉ được tính 
khi mà F[i, k] cũng như F[k + 1, j] đều đã biết. Tức là ban đầu ta điền cơ sở quy hoạch động 
vào đường chéo chính của bång(F[i, i] = 0), từ đó tính các giá trị thuộc đường chéo nằm phía 
trên (Tính các EI, i + UI, rồi lại tính các giá trị thuộc đường chéo nằm phía trên nữa (F[i, i + 


2])... Đến khi tính được F[1, n] thì đừng lại 


3.5.3. Tìm cách kết hợp tối ưu 

Tại mỗi bước tính F[i, j], ta ghi nhận lại điểm k mà cách tính (Mi *M.,.¡ *... * Mo * (Mi? 
Mke ¥ ... * Mj) cho só phép nhân số học nhỏ nhất, chẳng hạn ta đặt T[i, j] = k. 

Khi đó, muốn in ra phép két hợp tối ưu để nhân đoạn M; *M;.¡ *... * Mg * Meri * MỊ.¿ *... 


* Mj, ta sẽ in ra cách kết hợp tối ưu để nhân đoạn M; * Mar... * My và cách kết hợp tối ưu 
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để nhân đoạn Mu * Min * ... * Mj (có kèm theo dấu đóng mở ngoặc) đồng thời viết thêm 


dâu "*" vào giữa hai biêu thức đó. 


program MatrixesMultiplier ; 
const 
InputFile = 'MULTMAT.INP'; 
OutputFile = 'MULTMAT.OUT'; 


max = 100; 
MaxLong = 1000000000; 
var 


a: array[1..max + 1] of Integer; 

F: array[1..max, 1..max] of LongInt; 
T: array[1..max, 1..max] of Byte; 

n: Integer; 

fo: Text; 


procedure Enter; (Nhập dữ liệu từ thiết bị nhập chuẩn} 
var 
i: Integer; 
fi: Text; 
begin 
Assign(fi, InputFile); Reset (fi); 
ReadIn (fi, n); 
for i := 1 to n + 1 do Read(fi, a[i]); 
Close (f1) ; 
end; 


procedure Optimize; 
var 
i, j, k, len: Integer; 
X, P, q, r: LongInt; 
begin 
for i := 1 to n do 
for j := i to n do 
if i = j then F[i, j] := 0 
else F[i, j] := MaxLong; {Khói tạo bảng phương án: đường chéo chính = 0, các ô khác = +0} 
for len := 2 to n do {Tìm cách kết hợp tói uu để nhân đoạn gồm len ma trận liên tiếp) 
for i := 1 to n - len + 1 do 
begin 
j := i+ len - 1; {Tính F[i, J]} 
for k := i to j - 1 do {Xét mọi vị trí phân hoạch k} 
begin (Giả sử ta tính M; * „ * My = (M * n * M) * War. * MAI 
p := a[i]; q := afk +1]; r := a[] + 1]; (Kích thước 2 ma trận sẽ nhân cuối cùng} 
x := F[i, k] + F[k +1, j] +p*q* r; (Chỉ phí nếu phân hoạch theo k} 
if x < F[i, j] then (Nếu phép phân hoạch đó tốt hơn F[i, j] thì ghi nhận lại} 


begin 
F[i, j] := x; 
T[i, j] := k; 
end; 


end; 
end; 
end; 


procedure Trace(i, j: Integer); {In ra phép kết hợp để nhân đoạn M; * M;¡ * „ * M;} 
var 

k: Integer; 
begin 

if i = j then Write(fo, 'M[', i, ']') {Nếu đoạn chỉ gồm 1 ma trận thì in luôn} 

else (Nếu đoạn gồm từ 2 ma trận trở lên} 

begin 
Write(fo, '('); (Mở ngoặc} 
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k := T[i, j]; {Lấy vị trí phân hoạch tối ưu đoạn MH 
Trace(i, k); {In ra phép kết hợp để nhân đoạn đầu) 


Write(fo, ' * '); (Dâu nhân) 
Trace(k + 1, j); (In ra phép kết hợp để nhân đoạn sau} 
Write(fo, ')'); {Đóng ngoặc} 
end; 
end; 
begin 
Enter; 
Optimize; 


Assign (fo, OutputFile); Rewrite (fo) ; 
WriteLn(fo, F[1, n]); (Số phép nhân cần thục hiện) 
Trace(1, n); (Truy vết bằng đệ quy) 
Close (fo) ; 
end. 


3.6. BÀI TẬP LUYÊN TẬP 


3.6.1. Bài tập có gợi ý lời giải 

Bài 1 

Nhập vào hai số nguyên đương n và k (n, k < 100). Hãy cho biết 

a) Có bao nhiêu số nguyên dương có < n chữ số mà tông các chữ số đúng bằng k. Nếu có hơn 

1 tỉ số thì chỉ cần thông báo có nhiều hơn 1 tỉ. 

b) Nhập vào một số p < 1 tỉ. Cho biết nếu đem các số tìm được xếp theo thứ tự tăng dần thì số 

thứ p là số nào ? 

Gọi ý: 

Câu a: Ta sẽ đếm số các số có đúng n chữ số mà tông các chữ số (TCCS) băng k, chỉ có điều 

các số của ta cho phép có thê bắt đầu bằng 0. Ví dụ: ta coi 0045 là số có 4 chữ số mà TCCS là 

9. Gọi F[n, k] là số các số có n chữ số mà TCCS bằng k. Các số đó có dạng xxx xl, 

x2, ...xn ở đây là các chữ số 0...9 và x1 + x2 +... + xn = k. Nếu có định x1 = t thì ta nhận 

thấy EEN lập thành một số có n - 1 chữ số mà TCCS bằng k - t. Suy ra do x1 có thể nhận 
9 

các giá trị từ 0 tới 9 nên về mặt số lượng: F[n, k] = 3 F[n—1,k~1]. Đây là công thức truy 
¿=0 

hồi tính F[n, k], thực ra chỉ xét những giá trị t từ 0 tới 9 và t < k mà thôi (để tránh trường hợp 

k - t <0). Chú ý răng nếu tại một bước nào đó tính ra một phần tử của F > 10” thì ta đặt lại 

phần tử đó là 10” + 1 để tránh bị tràn số do cộng hai số quá lớn. Kết thúc quá trình tính toán, 

nếu Ein, k] = 10” + 1 thì ta chỉ càn thông báo chung chung là có > 1 tỉ số. 

Cơ sở quy hoạch động thì có thê đặt là: 

F[1, k] = số các số có 1 chữ số mà TCCS bằng k, như vậy nếu k > 10 thì F[1, k] = 0 còn nếu 0 

<k<9thì F[1, k]Ị= 1. 

Câu b: Dựa vào bảng phương án F[0..n, 0..k], 
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F[n - 1, k] = số các số có n - 1 CS mà TCCS bằng k = số các số có n CS, bắt đầu là 0, TCCS bằng k. 
F[n - 1, k - 1] = số các số có n - 1 CS mà TCCS bằng k - 1 = số các số có n CS, bắt đầu là 1, TCCS bằng k. 
F[n - 1, k - 2] = số các số có n - 1 CS mà TCCS bằng k - 2 = số các số có n CS, bắt đầu là 2, TCCS bằng k. 


F[n - 1, k - 9] = số các số có n - 1 CS mà TCCS bằng k - 9 = số các số có n CS, bắt đầu là 9, TCCS bằng k. 
Từ đó ta có thê biết được số thứ p (theo thứ tự tăng dần) cần tìm sẽ có chữ số đầu tiên là chữ 
số nào, tương tự ta sẽ tìm được chữ số thứ hai, thứ ba v.v... của số đó. 
Bài 2 
Cho n gói kẹo (n < 200), mỗi gói chứa không quá 200 viên kẹo, và một số M < 40000. Hãy 
chỉ ra một cách lấy ra một ső các gói kẹo để được tổng só kẹo là M, hoặc thông báo rằng 
không thê thực hiện được việc đó. 
Gợi ý: Giả sử số kẹo chứa trong gói thứ i là A; 
Gọi b[V] là số nguyên đương bé nhất thoả mãn: Có thể chọn trong số các gói kẹo từ gói 1 
đến gói b[V] ra một số gói để được tông số kẹo là V. Nếu không có phương án chọn, ta coi 
b[V] = +œ. Trước tiên, khởi tạo b[0] = 0 và các b[V] = +œ với mọi V > 0. Ta sẽ xây dựng b[V] 
như sau: 
Để tiện nói, ta đặt k = b[V]. Vì k là bé nhất có thể, nên nếu có cách chọn trong số các gói kẹo 
từ gói 1 đến gói k để được số kẹo V thì chắc chắn phải chọn gói k. Mà đã chọn gói k rồi thì 
trong số các gói kẹo từ 1 đến k - 1, phải chọn ra được một số gói dë được số kẹo là V - An, 
Tức là b[V - Ak] <k- 1 <k. Vậy thì b[V] sẽ được tính bằng cách: 
Xét tất cả các gói kẹo k có A¿ < V và thoả mãn b[V - Ax] < k, chọn ra chỉ số k bé nhất, sau đó 
gán b[V] := k. Đây chính là công thức truy hồi tính bảng phương án. 
Sau khi đã tính b[1], b[2], ..., b[M]. Nếu b[M] vẫn bằng +o thì có nghĩa là không có phương 
án chọn. Nếu không thì sẽ chọn gói pı = b[M], tiếp theo sẽ chọn gói p2 = b[M - Apl, rồi lại 
chọn gói p3 = b[M - Ap, - Ap,]... Đến khi truy vết về tới b[0] thì thôi. 
Bài 3 
Cho n gói kẹo (n < 200), mỗi gói chứa không quá 200 viên kẹo, hãy chia các gói kẹo ra làm 
hai nhóm sao cho số kẹo giữa hai nhóm chênh lệch nhau ít nhất 
Gọi ý: 
Gọi S là tông số kẹo và M là nửa tông số kẹo, áp dụng cách giải như bài 2. Sau đó 
Tìm số nguyên đương T thoả mãn: 

e T<M 

e Tôn tại một cách chọn ra một số gói kẹo để được tổng số kẹo là T (b[T] £ +) 


e T lớn nhất có thể 
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Sau đó chọn ra một số gói kẹo để được T viên kẹo, các gói kẹo đó được đưa vào một nhóm, 
số còn lại vào nhóm thứ hai. 

Bài 4 

Cho một bảng A kích thước m x n, trên đó ghi các số nguyên. Một người xuất phát tại ô nào 
đó của cột 1, cần sang cột n (tại ô nào cũng được). Quy tắc: Từ ô A[i, j] chỉ được quyền sang 
một trong 3 ô Afi, j + 1]; A[i - 1,j + 1]; A[i + 1, j + 1]. Hãy tìm vị trí ô xuất phát và hành trình 


đi từ cột 1 sang cột n sao cho tông các số ghi trên đường đi là lớn nhất. 


2 |6 |7 


œ®œẰ|`|m|Ị`e© 


1 
7 6 |5 6 
1 2 3 4 
4 |7 8 7 


Gọi ý: 
Gọi B[i, j] là số điểm lớn nhất có thê có được khi tói ô A[i, j]. Rõ ràng đối với những ô ở cột 1 
thì BỊi, 1] = A[i, 1]: 


2 


Gi Gänn 
m"ị+> | 
AININ 
EI | zl 1 - 


1 
7 6 
1 2 
4 7 


Với những ô (i, j) ở các cột khác. Vì chỉ những ô (i, j - 1), G- 1, j - 1), (¡+ 1, j - 1) là có thé 
sang được ô (i, j), và khi sang ô (i, j) thì số điểm được cộng thêm Afi, j] nữa. Chúng ta cần BI. 
j] là số điểm lớn nhất có thê nên DI. j] = max(Bịi, j - 1], B[i - 1, j - 1], B[i + 1,j - I] + AÑ, j]. 
Ta dùng công thức truy hồi này tính tất cả các B[i, j]. Cuối cùng chọn ra B[i, n] là phần tử lớn 


nhất trên cột n của bảng B và từ đó truy vét tìm ra đường đi nhiều điểm nhất. 


3.6.2. Bài tập tự làm 

Bài 1 

Bài toán cái túi với kích thước như nêu trên là không thực tế, chăng có siêu thị nào có < 100 
gói hàng cả. Hãy lập chương trình giải bài toán cái túi với n < 10000; M < 1000. 

Bài 2 

Xâu ký tự S gọi là xâu con của xâu ký tự T nếu có thể xoá bớt một số ký tự trong xâu T dé 
được xâu S. Lập chương trình nhập vào hai xâu ký tự Sı, S2. Tìm xâu S; có độ dài lớn nhất là 
xâu con của cả Sı và Sa. Ví dụ: Sı = 'abcdefghi123'; S2 = 'abcldef2ghi3' thì S; là 'abcdefghi3'. 
Bài 3 

Một xâu ký tự X gọi là chứa xâu ký tự Y nếu như có thể xoá bớt một số ký tự trong xâu X 


dë được xâu Y: Ví dụ: Xâu 'Ia2b3c45d' chứa xâu '12345'. Một xâu ký tự gọi là đối xứng nếu 
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nó không thay đổi khi ta viết các ký tự trong xâu theo thứ tự ngược lại: Ví dụ: 
'abeABADABAcba','MADAMI' là các xâu đối xứng. 
Nhập một xâu ký tự S có độ dài không quá 128, hãy tìm xâu ký tự T thoả mãn cả 3 điều kiện: 
1. Đối xứng 
2. Chứa xâu S 
3. Có ít ký tự nhất (có độ dài ngắn nhất) 
Nếu có nhiều xâu T thoả mãn đồng thời 3 điều kiện trên thì chỉ cần cho biết một. Chăng hạn 
với S='a 101_b'thì chọn T='ab 101 bai hay T='ba 101 ab' đều đúng. 
Ví dụ: 


5 T 
IADAM MADAM 
Edbabcd edcbabcde 
00 11 22 33 222 1 000 000 11 222 33 222 11 000 
abcdefg hh gfe 1 d 2 c 3 ba ab 3 c 2 d 1 efg hh gfe 1 d 2 c 3 ba 


Bài 4 
Có n loại tiền giấy: Tờ giấy bạc loại i có mênh giá là V[i] ( n < 20, 1 < V[i] < 10000). Hỏi 


muốn mua môt món hàng giá là M thì có bao nhiêu cách trả số tiền đó bằng những loại giấy 
bạc đã cho (Trường hợp có > 1 tỉ cách thì chỉ càn thông báo có nhiều hơn 1 tỉ). Nếu tòn tại 
cách trả, cho biết cách trả phải dùng ít tờ tiền nhất. 

Bài 5 

Cho n quân đô-mi-nô xếp dựng đứng theo hàng ngang và được đánh số từ 1 đến n. Quân đô- 


mi-nô thứ i có số ghi ở ô trên là a[i] và số ghi ở ô đưới là b[i]. Xem hình vẽ: 


Biết rằng 1 < n < 100 và 0 < a¡, bị < 6 với Vi: 1 <i < n. Cho phép lật ngược các quân đô-mi-nô. 
Khi một quân đô-mi-nô thứ i bị lật, nó sẽ có số ghi ở ô trên là b[¡] và số ghi ở ô dưới là a[i]. 
Vấn đề đặt ra là hãy tìm cách lật các quân đô-mi-nô sao cho chênh lệch giữa tổng các số 
ghi ở hàng trên và tng các số ghi ở hàng dướii là tối thiểu. Nếu có nhiều phương án lật tốt 
như nhau, thì chỉ ra phương án phải lật ít quân nhất. 


Như ví dụ trên thì sẽ lật hai quân Đô-mi-nô thứ 5 và thứ 6. Khi đó: 


Tổng các số ở hàng trên = 1 +1 +4+4+6+1=17 


Tổng các số ở hàng dưới = 6 +3 +1+1+0+6= 17 

Bài 6 

Xét bảng H kích thước 4x4, các hàng và các cột được đánh chỉ ső A, B, C, D. Trên 16 ô của 
bảng, mỗi ô ghi 1 ký tự A hoặc B hoặc C hoặc D. 
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Cho xâu S gòm n ký tự chỉ gòm các chữ A, B, C, D. 

Xét phép co R(i): thay ký tų Sr và Su bởi ký tự nằm trên hàng S¡, cột S¡:¡ của bång H. 
Ví dụ: S = ABCD; áp dụng liên tiếp 3 lần R(1) sẽ được 

ABCD > ACD > BD >B. 


Yêu cầu: Cho trước một ký tự Xe{A, B, C, D}, hãy chỉ ra thứ tự thực hiện n - 1 phép co để 
ký tự còn lại cuói cùng trong S là X. 

Bài 7 

Cho N số tự nhiên A, A2, ..., An. Biết rằng 1 < N < 200 và 0 < A; < 200. Ban đầu các số 
được đặt liên tiếp theo đúng thứ tự cách nhau bởi dấu "?": A¡ ? Az ? ... ? An. Yêu cầu: Cho 
trước số nguyên K, hãy tìm cách thay các dấu "?" bằng dấu cộng hay dấu trừ để được một 
biểu thức số học cho giá trị là K. Biết rằng 1 < N < 200 và 0 < A; < 100. 

Ví dụ: Ban đầu 1 ?2 ? 3 ? 4 và K =0 sẽ cho kết quả 1 - 2 - 3 + 4. 

Bài 8 

Dãy Catalan là một dãy số tự nhiên bắt đầu là 0, kết thúc là 0, hai phần tử liên tiếp hơn kém 
nhau 1 đơn vị. Hãy lập chương trình nhập vào số nguyên dương n lẻ và một số nguyên dương 
p. Cho biết rằng nếu như ta đem tất cả các dãy Catalan độ dài n xếp theo thứ tự từ điển thì dãy 


thứ p là dãy nào. 


Một bài toán quy hoạch động có thể có nhiều cách tiếp cận khác nhau, chọn cách nào là tuỳ 
theo yêu cầu bài toán sao cho dễ dàng cài đặt nhất. Phương pháp này thường không khó khăn 
trong việc tính bảng phương án, không khó khăn trong việc tìm cơ sở quy hoạch động, mà 
khó khăn chính là nhìn nhận ra bài toán quy hoạch động và tìm ra công thức truy hồi giải 
nó, công việc này đòi hỏi sự nhanh nhạy, khôn khéo, mà chỉ từ sự rèn luyện mới có thể có 
được. Hãy đọc lại §1 để tìm hiểu kỹ các phương pháp thông dụng khi cài đặt một chương 


trình giải công thức truy hồi. 
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ĐỎ THỊ 


Trên thực tế có nhiều bài toán liên quan tới một tập các 
đối tượng và những mối liên hệ giữa chúng, đòi hỏi 
toán học phải đặt ra một mô hình biểu diễn một cách 
chặt chẽ và tổng quát bằng ngôn ngữ ký hiệu, đó là đồ 
Leonhard Euer thi. Những ý tưởng cơ bản của nó được đưa ra từ thế kỷ 
BEE thứ XVII bởi nhà toán học Thuy Sr Leonhard Euler, 
ông đã dùng mô hình đồ thị để giải bài toán về những cây cầu 
Konigsberg nỗi tiếng. 
Mặc dù Lý thuyết đồ thị đã được khoa học phát triển từ rất lâu nhưng 
lại có nhiều ứng dụng hiện đại. Đặc biệt trong khoảng vài mươi năm 
trở lại đây, cùng với sự ra đời của máy tính điện tử và sự phát triển 
nhanh chóng của Tin học, Lý thuyết đồ thị càng được quan tâm đến 
nhiều hơn. Đặc biệt là các thuật toán trên đồ thị đã có nhiều ứng dụng 
trong nhiều lĩnh vực khác nhau như: Mạng máy tính, Lý thuyết mã, 
Tối ưu hoá, Kinh tế học v.v... Hiện nay, môn học này là một trong 
những kiến thức cơ sở của bộ môn khoa học máy tính. 
Trong phạm vi một chuyên đề, không thể nói kỹ và nói hết những ván 
đề của lý thuyết đồ thị. Tập bài giảng này sẽ xem xét lý thuyết đồ thị 
dưới góc độ người lập trình, tức là khảo sát những thuật toán cơ bản 
nhất có thể dễ dàng cài đặt trên máy tính một số ứng dụng của nó. . 
Công việc của người lập trình là đọc hiểu được ý tưởng cơ bản của 
thuật toán và cài đặt được chương trình trong bài toán tổng quát cũng 


như trong trường hợp cụ thê. 
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§1. CÁC KHÁI NIỆM CƠ BẢN 


1.1. ĐỊNH N GHĨA DO THỊ (GRAPH) 
Là một cấu trúc rời rạc gồm các đỉnh và các cạnh nối các đỉnh đó. Được mô tả hình thức: 
G=(V,E) 
V gọi là tập các đỉnh (Vertices) và E gọi là tập các cạnh (Edges). Có thể coi E là tập các cặp (u, v) 
với u và v là hai đỉnh của V. 


Một số hình ảnh của đồ thị: 


Sơ đồ giao thông Mạng máy tính Cấu trúc phân tử 


Hình 51: Ví dụ về mô hình đồ thị 
Có thể phân loại đồ thị theo đặc tính và số lượng của tập các cạnh E: 
Cho đồ thị G = (V, E). Định nghĩa một cách hình thức 
G được gọi là đơn đồ thị nếu giữa hai đỉnh u, v của V có nhiều nhất là 1 cạnh trong E nối từ u tới v. 
G được gọi là đa đồ thị nếu giữa hai đỉnh u, v của V có thê có nhiều hơn 1 cạnh trong E nối từ u tới 
v (Hiën nhiên đơn đồ thị cũng là đa đồ thị). 
G được gọi là đồ thị vô hướng (undirected graph) néu các cạnh trong E là không định hướng, tức là 
cạnh nối hai đỉnh u, v bất kỳ cũng là cạnh nối hai đỉnh v, u. Hay nói cách khác, tập E gồm các cặp 
(u, v) không tính thứ tự. (u, v)=(v, u) 
G được gọi là đồ thị có hướng (directed graph) nếu các cạnh trong E là có định hướng, có thể có 
cạnh nối từ đỉnh u tới đỉnh v nhưng chưa chắc đã có cạnh nối từ đỉnh v tới đỉnh u. Hay nói cách 
khác, tập E gồm các cặp (u, v) có tính thứ tự: (u, v) # (v, u). Trong đồ thị có hướng, các cạnh được 
gọi là các cung. Đồ thị vô hướng cũng có thể coi là đồ thị có hướng nếu như ta coi cạnh nối hai 
đỉnh u, v båt kỳ tương đương với hai cung (u, v) và (v, u). 
Ví dụ: 
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ODR 


Vô GE Có hướng Vô b =-=.-. 11... Có hướng 


D đồ thị B đồ thị 
Hình 52: Phân loại đồ thị 
1.2. CÁC KHAI NIEM 


Như trên định nghĩa đồ thị G = (V, E) là một cấu trúc rời rạc, tức là các tập V và E hoặc là tập 
hữu hạn, hoặc là tập đếm được, có nghĩa là ta có thể đánh số thứ tự 1, 2, 3... cho các phần tử của 
tập V và E. Hơn nữa, đứng trên phương diện người lập trình cho máy tính thì ta chỉ quan tâm đến 
các đồ thị hữu hạn (V và E là tập hữu hạn) mà thôi, chính vì vậy từ đây về sau, nếu không chú thích 


gì thêm thì khi nói tới đồ thị, ta hiểu rằng đó là đồ thị hữu hạn. 
Cạnh liên thuộc, đỉnh kè, bậc 


Đối với đồ thị vô hướng G = (V, E). Xét một cạnh e e E, nếu e = (u, v) thì ta nói hai đỉnh u và v là 
kè nhau (adjacent) và cạnh e này liên thuộc (incident) với đỉnh u và đỉnh v. 

Với một đỉnh v trong đồ thị, ta định nghĩa bậc (degree) của v, ký hiệu deg(v) là số cạnh liên thuộc 
với v. Dễ thấy răng trên đơn đồ thị thì số cạnh liên thuộc với v cũng là số đỉnh kề với v. 

Định lý: Giả sử G = (V, E) là đồ thị vô hướng với m cạnh, khi đó tổng tất cả các bậc đỉnh trong V 
sẽ bằng 2m: 


3 deg(v) =2m 


veV 
Chứng mình: Khi lẫy tông tất cả các bậc đỉnh tức là mỗi cạnh e = (u, v) bất kỳ sẽ được tính một lần 
trong deg(u) và một lần trong deg(v). Từ đó suy ra kết quả. 
Hệ quả: Trong đồ thị vô hướng, số đỉnh bậc lẻ là số chăn 


Đối với đồ thị có hướng G = (V, E). Xét một cung e € E, nếu e = (u, v) thì ta nói u nối tới v và v 
nối từ u, cung e là đi ra khỏi đỉnh u và đi vào đỉnh v. Đỉnh u khi đó được gọi là đỉnh đầu, đỉnh v 
được gọi là đỉnh cuối của cung e. 

Với mỗi đỉnh v trong đồ thị có hướng, ta định nghĩa: Bán bậc ra của v ký hiệu deg+(v) là số cung 


đi ra khỏi nó; bán bậc vào ký hiệu deg-(v) là số cung đi vào đỉnh đó 
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Định lý: Giả sử G = (V, E) là đồ thị có hướng với m cung, khi đó tông tất cả các bán bậc ra của các 


đỉnh băng tông tât cả các bán bậc vào và băng m: 


3 deg (v) = 3 deg" (v) =m 


veV veV 
Chứng minh: Khi lẫy tông tất cả các bán bậc ra hay bán bậc vào, mỗi cung (u, v) bất kỳ sẽ được 


tính đúng 1 lần trong deg Tu) và cũng được tính đúng 1 lần trong deg (v). Từ đó suy ra kết quả 


Một số tính chất của đồ thị có hướng không phụ thuộc vào hướng của các cung. Do đó để tiện trình 
bày, trong một số trường hợp ta có thê không quan tâm đến hướng của các cung và coi các cung đó 
là các cạnh của đồ thị vô hướng. Và đồ thị vô hướng đó được gọi là đồ thị vô hướng nền của đồ thị 


có hướng ban đâu. 
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§2. BIÉU DIỄN ĐỎ THỊ TRÊN MÁY TÍNH 


2.1. MA TRÂN LIÊN KE (MA TRẬN KÈ) 


Giả sử G = (V, E) là một đơn đồ thị có số đỉnh (ký hiệu | VÌ) là n, Không mất tính tổng quát có 
thể coi các đỉnh được đánh số 1, 2, ..., n. Khi đó ta có thể biểu diễn đồ thị bằng một ma trận vuông 
A = [aj] cấp n. Trong đó: 

aj= 1 nếu (i, j) € E 

aj = 0 néu (i, j) £ E 

Quy ước au = 0 với Vi; 

Đối với đa đồ thị thì việc biểu diễn cũng tương tự trên, chỉ có điều néu như (4, j) là cạnh thì không 


phải ta ghi sô 1 vào vị trí au mà là ghi sô cạnh nôi giữa đỉnh i và đỉnh j. 


Ví dụ: 
[0 0 1 1 0] [0 0 1 0 o 
0 00 1 1 0 00 10 
A=ll 0 001 A=l0 0 0 01 
1 1000 I 0000 
0 1 100 0 1000 


Các tính chất của ma trận kê: 
Đối với đồ thị vô hướng G, thì ma trận kề tương ứng là ma trận đối xứng (aij = aji), điều này không 
đúng với đồ thị có hướng. 
Nếu G là đồ thị vô hướng và A là ma trận kề tương ứng thì trên ma trận A: 
Tổng các số trên hàng i = Tổng các số trên cột i = Bậc của đỉnh i = deet) 
Nếu G là đồ thị có hướng và A là ma trận kề tương ứng thì trên ma trận A: 
Tổng các số trên hàng i = Bán bậc ra của đỉnh i = deg (i) 
Tổng các số trên cột i = Bán bậc vào của đỉnh i = deet 
Trong trường hợp G là đơn đồ thị, ta có thể biểu diễn ma trận kề A tương ứng là các phần tử logic. 
aj = TRUE nếu (i, j) € E và aj = FALSE nếu (i, j) £ E 
Uu điểm của ma trận kè: 
Đơn giản, trực quan, dễ cài đặt trên máy tính 
ĐỀ kiểm tra xem hai đỉnh (u, v) của đồ thị có kề nhau hay không, ta chỉ việc kiểm tra bằng một 
phép so sánh: äu, z 0. 


Nhược điêm của ma trận kê: 
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Bắt kế số cạnh của đồ thị là nhiều hay ít, ma trận kề luôn luôn đòi hỏi n? ô nhớ dë lưu các phần tử 
ma trận, điều đó gây lãng phí bộ nhớ dẫn tới việc không thê biểu diễn được đồ thị với số đỉnh lớn. 
Với một đỉnh u bất kỳ của đồ thị, nhiều khi ta phải xét tất cả các đỉnh v khác kề với nó, hoặc xét tất 
cả các cạnh liên thuộc với nó. Trên ma trận kề việc đó được thực hiện bằng cách xét tất cả các đỉnh 
v và kiểm tra điều kiện au # 0. Như vậy, ngay cả khi đỉnh u là đỉnh cô lập (không kề với đỉnh nào) 
hoặc đỉnh treo (chỉ kề với 1 đỉnh) ta cũng buộc phải xét tất cả các đỉnh và kiểm tra điều kiện trên 
dẫn tới lãng phí thời gian 

2.2. DANH SÁCH CANH 


Trong trường hợp đồ thị có n đỉnh, m cạnh, ta có thể biĉu diễn đồ thị dưới dạng danh sách cạnh 
bằng cách liệt kê tất cả các cạnh của đồ thị trong một danh sách, mỗi phần tử của danh sách là một 
cặp (u, v) tương ứng với một cạnh của đồ thị. (Trong trường hợp đồ thị có hướng thì mỗi cặp (u, v) 
tương ứng với một cung, u là đỉnh đầu và v là đỉnh cuối của cung). Danh sách được lưu trong bộ 


nhớ đưới dạng mảng hoặc danh sách móc nối. Ví dụ với đồ thị ở Hình 53: 


Hình 53 


Cài đặt trên mảng: 


1 2 3 4 5 6 
1,2 1,3 1,5 2,3 3,4 4,5 
aal no | vẽ | es | e5 | «9| 


Cài đặt trên danh sách móc nôi: 


Ưu điểm của danh sách cạnh: 

Trong trường hợp đồ thị thưa (có số cạnh tương đối nhỏ: chẳng hạn m < 6n), cách biểu diễn bằng 
danh sách cạnh sẽ tiết kiệm được không gian lưu trữ, bởi nó chỉ cần 2m ô nhớ đề lưu danh sách 
cạnh. 

Trong một số trường hợp, ta phải xét tất cả các cạnh của đồ thị thì cài đặt trên danh sách cạnh làm 
cho việc duyệt các cạnh dë dàng hơn. (Thuật toán Kruskal chẳng hạn) 

Nhược điểm của danh sách cạnh: 

Nhược điểm cơ bản của danh sách cạnh là khi ta cần duyệt tất cả các đỉnh kề với đỉnh v nào đó của 
đồ thị, thì chăng có cách nào khác là phải duyệt tất cả các cạnh, lọc ra những cạnh có chứa đỉnh v và 


xét đỉnh còn lại. Điều đó khá tốn thời gian trong trường hợp đồ thị dày (nhiều cạnh). 
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2.3. DANH SÁCH KÈ 


Đề khắc phục nhược điểm của các phương pháp ma trận kè và danh sách cạnh, người ta đề xuất 
phương pháp biểu diễn đồ thị bằng danh sách kề. Trong cách biểu diễn này, với mỗi đỉnh v của đồ 
thị, ta cho tương ứng với nó một danh sách các đỉnh kề với v. 


Với đồ thị G = (V, E). V gồm n đỉnh và E gồm m cạnh. Có hai cách cài đặt danh sách kề phố biến: 


Hình 54 


Cách 1: Dùng một mảng các đỉnh, mảng đó chia làm n đoạn, đoạn thứ i trong mảng lưu danh sách 
các đỉnh kè với đỉnh i: Với đồ thị ở Hình 54, danh sách kè sẽ là một mảng A gồm 12 phần tử: 

1 2 3 4 5 6 7 8 9 10 11 12 
FFFFFFFPFFFFE. 


I II II IV y 


Đề biết một đoạn nằm từ chỉ số nào đến chỉ số nào, ta có môt mảng Head lưu vị trí riêng. Head[I] sẽ 
bằng chỉ số đứng liền trước đoạn thứ i. Quy ước Head[n + 1] bằng m. Với đồ thị bên thì mảng 
Head[ 1..6] sẽ là: (0, 3, 5, 8, 10, 12) 

Trong mång A, đoạn từ vị trí Head[i] + 1 đến Head[i + 1] sẽ chứa các đỉnh kè với đỉnh i. Lưu ý rằng 
với đồ thị có hướng gồm m cung thì cấu trúc này cần phải đủ chứa m phần tử, với đồ thị vô hướng 
m cạnh thì cấu trúc này cần phải đủ chứa 2m phần tử 

Cách 2: Dùng các danh sách móc nối: Với mỗi đỉnh ¡ của đồ thị, ta cho tương ứng với nó một danh 
sách móc nối các đỉnh kề với i, có nghĩa là tương ứng với một đỉnh i, ta phải lưu lại List) là chốt 
của một danh sách móc nối. Ví dụ với đồ thị ở Hình 54, các danh sách móc nối sẽ là: 


List 1: 


List 2: 


List 3: 


List 4: 


List 5: 


Uu điểm của danh sách kê: 
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Đối với danh sách kè, việc duyệt tất cả các đỉnh kề với một đỉnh v cho trước là hết sức dë dàng, cái 
tên "danh sách kè" đã cho thấy rõ điều này. Việc duyệt tất cả các cạnh cũng đơn giản vì một cạnh 
thực ra là nối một đỉnh với một đỉnh khác kề nó. 

Nhược điểm của danh sách kề 

Danh sách kề yếu hơn ma trận kề ở việc kiểm tra (u, v) có phải là cạnh hay không, bởi trong cách 
biểu diễn này ta sẽ phải việc phải duyệt toàn bộ danh sách kề của u hay danh sách kề của v. Tuy 
nhiên đối với những thuật toán mà ta sẽ khảo sát, danh sách kè tốt hơn hắn so với hai phương pháp 
biểu diễn trước. Chỉ có điều, trong trường hợp cụ thê mà ma trận kề hay danh sách cạnh không thể 
hiện nhược điểm thì ta nên dùng ma trận kè (hay danh sách cạnh) bởi cài đặt danh sách kè có phần 
đài dòng hơn. 

2.4. NHÂN XÉT 


Trên đây là nêu các cách biểu diễn đồ thị trong bộ nhớ của máy tính, còn nhập dữ liệu cho đồ thị thì 
có nhiều cách khác nhau, dùng cách nào thì tuỳ. Chẳng hạn nếu biểu diễn bằng ma trận kề mà cho 
nhập dữ liệu cả ma trận cấp n x n (n là số đỉnh) thì khi nhập từ bàn phím sẽ rất mắt thời gian, ta cho 
nhập kiểu danh sách cạnh cho nhanh. Chăng hạn mảng A (nxn) là ma trận kè của một đồ thị vô 
hướng thì ta có thể khởi tạo ban đầu mảng A gồm toàn số 0, sau đó cho người sử dụng nhập các 
cạnh bằng cách nhập các cặp (i, j); chương trình sẽ tăng A[i, j] và A[j, i] lên 1. Việc nhập có thê cho 
kết thúc khi người sử dụng nhập giá trị ¡ = 0. Ví dụ: 


program Nhap Do Thi; 
var 
A: array[1..100, 1..100] of Integer; {Ma trận kề của đồ thị} 
n, i, j: Integer; 
begin 
Write ('Number of vertices'); Readln (n); 
FillChar(A, 5izeOf(A), 0); 
repeat 
Write('Enter edge (i, j) (i = 0 to exit) '); 
ReadIn (1, j); {Nhập một cặp (i, j) tưởng như là nhập danh sách cạnh} 
if i <> 0 then 
begin {nhung lưu trữ trong bộ nhớ lại theo kiểu ma trân kề} 
Tne(A[i, jl); 
Tne(A[3, i]); 
end; 
until i = 0; {Nếu người sử dụng nhập giá trị i = 0 thì dừng quá trình nhập, nếu không thì tiếp tục} 
end. 
Trong nhiêu trường hợp đủ không gian lưu trữ, việc chuyên đôi từ cách biêu diễn nào đó sang cách 


biểu diễn khác không có gì khó khăn. Nhưng đối với thuật toán này thì làm trên ma trận kề ngắn 
gọn hơn, đối với thuật toán kia có thể làm trên danh sách cạnh dễ dàng hơn v.v... Do đó, với mục 
đích dé hiểu, các chương trình sau này sẽ lựa chọn phương pháp biểu diễn sao cho việc cài đặt đơn 
giản nhất nhằm nêu bật được bản chất thuật toán. Còn trong trường hợp cụ thê bắt buộc phải dùng 


một cách biểu diễn nào đó khác, thì việc sửa đổi chương trình cũng không tốn quá nhiều thời gian. 
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§3. CÁC THUẬT TOÁN TÌM KIÉM TRÊN ĐỎ THỊ 


3.1. BÀI TOÁN 

Cho đồ thị G = (V, E). u và v là hai đỉnh của G. Một đường đi (path) độ dài 1 từ đỉnh u đến đỉnh v 
là dãy (u = xo, Xị, ..., X1 = V) thoả mãn (x¡, zl € E với VI: (0 <1<]). 

Đường đi nói trên còn có thể biểu diễn bởi dãy các cạnh: (u = xo, X1), (XI, X2), ..., Du, X1 = V) 

Đỉnh u được gọi là đỉnh đầu, đỉnh v được gọi là đỉnh cuối của đường đi. Đường đi có đỉnh đầu trùng 
với đỉnh cuối gọi là chu trình (Circuit), đường đi không có cạnh nào đi qua hơn 1 lần gọi là đường 
đi đơn, tương tự ta có khái niệm chu trình đơn. 


Ví dụ: Xét một đồ thị vô hướng và một đồ thị có hướng trong Hình 55: 


“HH, 


Hình 55: Đồ thị và đường đi 
Trên cả hai đồ thị, (1, 2, 3, 4) là đường đi đơn độ dài 3 từ đỉnh 1 tới đỉnh 4. (1, 6, 5, 4) không phải 
đường đi vì không có cạnh (cung) nối từ đỉnh 6 tới đỉnh 5. 
Một bài toán quan trọng trong lý thuyết đồ thị là bài toán duyệt tất cả các đỉnh có thể đến được từ 
một đỉnh xuất phát nào đó. Vấn đề này đưa về một bài toán liệt kê mà yêu cầu của nó là không được 
bỏ sót hay lặp lại bất kỳ đỉnh nào. Chính vì vậy mà ta phải xây dựng những thuật toán cho phép 
duyệt một cách hệ thống các đỉnh, những thuật toán như vậy gọi là những thuật toán tìm kiếm 
trên đồ thị và ở đây ta quan tâm đến hai thuật toán cơ bản nhất: thuật toán tìm kiếm theo chiều 
sâu và thuật toán tìm kiếm theo chiều rộng cùng với một số ứng dụng của chúng. 
Lưu ý: 
Những cài đặt dưới đây là cho đơn dé thị vô hướng, muốn làm với đồ thị có hướng hay đa đồ thị 
cũng không phải sửa đổi gì nhiêu. 
Dữ liệu về đồ thị sẽ được nhập từ file văn bản GRAPH.INP. Trong đó: 
Dòng 1 chứa số đỉnh n (< 100), số cạnh m của đồ thị, đỉnh xuất phát S, đỉnh kết thúc F cách nhau 
một dấu cách. 
m dòng tiếp theo, mỗi dòng có dạng hai số nguyên dương u, v cách nhau một dấu cách, thể hiện có 
cạnh nối đỉnh u và đỉnh v trong đồ thị. 
Kết quả ghi ra file văn bản PATH.OUT 


Danh sách các đỉnh có thê đến được từ S 
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Đường đi từ S tới F 


GRAPH.INP || PATH.OUT 

8715 From 1 you can visit: 
12 dạ ¿2p e 4; b; 
13 Path from 1 to 5: 
23 3<-3<-2<-1 

24 

35 

46 

T8 


3.2. THUẬT TOÁN TÌM KIEM THEO CHIẾU SÂU (DEPTH FIRST SEARCH) 


3.2.1. Cài đặt đệ quy 


Tư tưởng của thuật toán có thể trình bày như sau: Trước hết, mọi đỉnh x kề với S tất nhiên sẽ đến được 
từ S. Với mỗi đỉnh x kề với S đó thì tất nhiên những đỉnh y kề với x cũng đến được từ S... Điều đó gợi 
ý cho ta viết một thủ tục đệ quy DFS(u) mô tả việc duyệt từ đỉnh u bằng cách thông báo thăm đỉnh u và 
tiếp tục quá trình duyệt DFS(v) với v là một đỉnh chưa thăm kề với u. 
Đề không một đỉnh nào bị liệt kê tới hai lần, ta sử dụng kỹ thuật đánh dấu, mỗi lần thăm một đỉnh, 
ta đánh dấu đỉnh đó lại để các bước duyệt đệ quy kế tiếp không duyệt lại đỉnh đó nữa 
Đề lưu lại đường đi từ đỉnh xuất phát S, trong thủ tục DFS(u), trước khi gọi đệ quy DFS(v) với v là 
một đỉnh kề với u mà chưa đánh dấu, ta lưu lại vết đường đi từ u tới v bằng cách đặt TRACE[v] := 
u, tức là TRACEIv] lưu lại đỉnh liền trước v trong đường đi từ S tới v. Khi quá trình tìm kiếm theo 
chiều sâu kết thúc, đường đi từ S tới F sẽ là: 
F < pı = Trace[F]  pa = Trace[pi] —... — S. 


procedure DFS (ueY) ; 
begin 
< 1. Thông báo tới được u >; 
< 2. Đánh dáu u là đã thăm (có thể tới được từ $)>; 
< 3. Xét mọi đỉnh v kề với u mà chưa thăm, với mỗi đỉnh v đó >; 
begin 
Trace[v] := u; {Lưu vết đường đi, đỉnh mà từ đó tới v là u} 
DFS(v); (Gọi đệ quy duyệt tương tự đối với v} 
end; 
end; 


begin {Chương trình chính} 

< Nhập dữ liệu: đồ thị, đỉnh xuất phát §, đỉnh đích F >; 

< Khởi tạo: Tất cả các đỉnh đều chưa bị đánh dấu >; 

DFS (S); 

< Nếu F chưa bị đánh dấu thì không thể có đường đi từ S tới F >; 

< Nếu F đã bị đánh dáu thì truy theo vét để tìm đường đi từ S tới F >; 
end. 


program Depth Hirst Search 1; 
const 
InputFile = 'GRAPH.INP'; 
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OutputFile = 'PATH.0UT' ; 
max = 100; 
var 
a: array[1..max, 1..max] of Boolean; {Ma trận kè của đồ thị) 
Free: array[1..max] of Boolean; (Free[v] = True © v chua được thăm đến] 
Trace: array[1..max] of Integer; {Trace[v] = đỉnh lièn trước v trên đường đi tù $ tói v} 
n, S, F: Integer; 
fo: Text; 


procedure Enter; (Nhập dỡ liêu} 


var 
i, u, v, m: Integer; 
fi: Text; 

begin 


Assign (fi, InputFile); Reset (fi); 
FillChar(a, SizeOf(a), False); (Khỏi tạo đồ thị chua có cạnh nào} 
ReadIn(fi, n, m, S, F); {Đọc dòng 1 ra 4 số n, m, S và F} 
for i := 1 to m do {Ðọc m dòng tiép ra danh sách cąnh} 
begin 
ReadIn (fi, u, v); 
a[u, v] := True; 
a[v, u] := True; 
end; 
Close (fi); 
end; 


procedure DFS(u: Integer); (Thuật toán tìm kiếm theo chièu sâu bắt đầu từ đỉnh u} 
Var 
v: Integer; 
begin 
Write(fo, u, ', '); (Thông báo tới được u} 
Free[u] := False; (Đánh dấu u đã thăm) 
for v := 1 to n do 
if Free[v] and a[u, v] then (Với mỗi đỉnh v chua thăm kể với u} 
begin 
Trace[v] := u; {Luu vết đường đi: Đỉnh liền trước v trong đường đi từ S tới v là u} 
DFS(v); (Tiếp tục tìm kiếm theo chiều sâu bắt đầu từ v} 
end; 
end; 


procedure Result; (In đường đi từ S tới F} 


begin 
WriteIn(fo); {Vào dòng thứ hai của Output file} 
Writeln(fo, 'Path from ', S, ' to ', F, '!; !); 


if Free[F] then (Nếu F chưa đánh dấu thăm tức là không có đường) 
WriteIn (fo, "not found') 
else (Truy vết đường đi, bắt đầu từ F) 
begin 
while F <> § do 
begin 
Write(fo, F, '<-'); 
F ;= Trace[F]; 
end; 
Writeln(fo, S); 
end; 
end; 


begin 
Enter; 
Assign (fo, 0utputFile); Rewrite (fo) ; 
Writeln(fo, 'From ', S, ' you can visit: '); 
FillChar (Free, n, True) ; 
DFS (S); 
Result; 
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Close (fo) ; 
end. 


Chú ý: 

Vì có kỹ thuật đánh dấu, nên thủ tục DFS sẽ được gọi < n lần (n là số đỉnh) 

Đường đi từ S tới F có thể có nhiều, ở trên chỉ là một trong số các đường đi. Cụ thể là đường đi có 
thứ tự từ điển nhỏ nhất. 

Có thê chăng cần dùng mảng đánh dấu Free, ta khởi tạo mảng lưu vết Trace ban đầu toàn 0, mỗi lần 
từ đỉnh u thăm đỉnh v, ta có thao tác gán vết Trace[v] :=u, khi đó Trace[v] sẽ khác 0. Vậy việc kiểm 
tra một đỉnh v là chưa được thăm ta có thể kiểm tra Trace[v] = 0. Chú ý: ban đầu khởi tạo 
Trace[S] := -1 (Chỉ là để cho khác 0 thôi). 


procedure DFS(u: Integer); {Cải tiến} 
var 
v: Integer; 
begin 
Write(u, ', '); 
for v := 1 to n do 
if (Trace[v] = 0) and A[u, v] then {Trace[v] = 0 thay vì Free[v] = True} 
begin 
Trace[v] := u; {Lưu vết cũng là đánh dáu luôn} 
DFS (v) ; 
end; 
end; 


Ví dụ: Với đồ thị sau đây, đỉnh xuất phát S = 1: quá trình duyệt đệ quy có thể vẽ trên cây tìm kiếm 
DFS sau (Mũi tên u—>v chỉ thao tác đệ quy: DFS(u) gọi DFS(V)). 


2nd Em 
Gth 
O~ e O-o 
3rd S 


Hình 56: Cây DFS 
Hỏi: Đỉnh 2 và 3 đều kề với đỉnh 1, nhưng tại sao DFS(1) chỉ gọi đệ quy tới DFS(2) mà không gọi DFS(3) 3. 
Trả lời: Đúng là cả 2 và 3 đều kề với 1, nhưng DFS(1) sẽ tìm thấy 2 trước và gọi DFS(2). Trong DFS(2) sẽ xét tất cả các 
đỉnh kề với 2 mà chưa đánh dấu thì dĩ nhiên trước hết nó tìm thấy 3 và gọi DFS(3), khi đó 3 đã bị đánh dấu nên khi kết 
thúc quá trình đệ quy gọi DFS(2), lùi về DFS(1) thì đỉnh 3 đã được thăm (đã bị đánh dấu) nên DFS(1) sẽ không gọi 
DFS(3) nữa. 
Hỏi: Nếu F = 5 thì đường đi từ 1 tới 5 trong chương trình trên sẽ in ra thế nào 2. 
Trả lời: DFS(5) do DFS(3) gọi nên Trace[5] = 3. DFS(3) do DFS(2) gọi nên Trace[3] = 2. DFS(2) do DFS(1) gọi nên 
Trace[2] = 1. Vậy đường đi là: 5 — 3 — 2 4+1. 
Với cây thê hiện quá trình đệ quy DFS ở trên, ta thấy nếu dây chuyền đệ quy là: DFS(S) —> DFS (u1) 


—> DFS(u;) ... Thì thủ tục DFS nào gọi cuối dây chuyền sẽ được thoát ra đầu tiên, thủ tục DFS(S) 
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gọi đầu dây chuyèn sẽ được thoát cuối cùng, từ đây ta có ý tưởng mô phỏng dây chuyền đệ quy 


bằng một ngăn xếp (Stack). 


3.2.2. Cài đặt không đệ quy 


Khi mô tả quá trình đệ quy bằng một ngăn xếp, ta luôn luôn để cho ngăn xếp lưu lại dây chuyền 
duyệt sâu từ nút gốc (đỉnh xuất phát S). 


<Thăn S, đánh dấu S đã thăm; 
<Đây S vào ngăn xếp>; (Dây chuyển đệ quy ban đầu chỉ có một đỉnh S} 
repeat 
<Láy u khỏi ngăn xếp>; (Đang đứng ở đỉnh u} 
if <u có đỉnh kè chưa thăm> then 
begin 
<Chi chọn lấy 1 đỉnh v, là đỉnh dầu tiên kể u mà chưa được thắm>; 
<Thông báo thăm v>; 
<Đẩy u trở lại ngăn xếp>; (Giữ lại địa chỉ quay lui} 
<Bây tiếp v vào ngăn sëtz: (Dây chuyển duyệt sâu được "nối" thêm v nữa} 
end; 
{Còn néu u không có đỉnh kể chua thăm thì ngăn xếp sẽ ngắn lại, tương ứng với sự lùi về của dây chuyển DFS} 
until <Ngăn xếp rỗng>; 


program Depth First Search 2; 
const 
InputFile = 'GRAPH.TNP'; 
OutputFile = 'PATH.OUT' ; 
max = 100; 
Var 
a: array[1..max, 1..max] of Boolean; 
Free: array[l..max] of Boolean; 
Trace: array[l..max] of Integer; 
Stack: array[l..max] of Integer; 
n, S, F, Last: Integer; 
fo: Text; 


procedure Enter; 


var 
i, u, v, m: Integer; 
fi: Text; 

begin 


Assign(fi, InputFile); Reset (fi); 
FillChar(a, Size0f (a), False); 
ReadIn (fi, n, m, S, F); 
for i := 1 to m do 
begin 
Readln (fi, u, v); 
a[u, v] := True; 
a[v, u] := True; 
end; 
Close (f1) ; 
end; 


procedure Init; {Khói tạo} 

begin 
FillChar (Free, n, True); {Các đỉnh đều chưa đánh dấu) 
Last := 0; {Ngăn xếp rỗng) 

end; 


procedure Push(V: Integer); {Dây một dinh V vào ngăn xếp] 


begin 
Ine (Last) ; 
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Stack[Last] := V; 
end; 


function Pop: Integer; (Lấy một đỉnh khỏi ngăn xếp, trả vè trong kết quả hàm} 


begin 
Pop := Stack[Last] ; 
Dec (Last) ; 

end; 


procedure DFS; 
var 
u, v: Integer; 
begin 
Write(fo, S, ', '); Free[S] := False; (Thăm S, đánh dáu $ đã thăm} 
Push (S); {Khói động dây chuyển duyệt sâu) 
repeat 
{Dây chuyển duyệt sâu đang là S> Au) 
u := Pop; {u là điểm cuối của dây chuyển duyệt sâu hiện tại} 
for v := 1 to n do 
if Free[v] and a[u, v] then (Chọn v là đỉnh đầu tiên chưa thăm kè với u, nếu có:] 
begin 
Write(fo, v, ', '); Free[v] := False; (Thăm v, đánh dấu v đã thăn) 
Trace[v] := u; {Luu vết đường đi) 
Push(u); Push(v); (Dây chuyển duyệt sâu bây giờ là S> .— u> v} 


Break; 
end; 
until Last = 0; {Ngăn xếp rỗng} 


end; 


procedure Result; (In đường đi từ S tới F} 
begin 
WriteIn(fo); {Vào dòng thứ hai của Output file} 
Writeln(fo, 'Path from ', S, ' to ', F, '; '!); 
if Free[F] then (Nếu F chua đánh dấu thăm tức là không có đường) 
Writein (fo, "not found') 
else (Truy vết đường đi, bắt đầu từ F) 
begin 
while F <> S do 
begin 
Write(fo, F, '<-'); 
F := Trace[F]; 
end; 
Writeln (fo, S); 
end; 
end; 


begin 
Enter; 
Assign (fo, OutputFile); Rewrite (fo) ; 
WriteLn(fo, 'From ', S, ' you can visit: '); 
Init; 
DFS; 
Result; 
Close (fo); 
end. 


Ví dụ: Với đồ thị đưới đây (S = 1), Ta thử theo dõi quá trình thực hiện thủ tục tìm kiếm theo chiều 
sâu dùng ngăn xếp và đối sánh thứ tự các đỉnh được thăm với thứ tự từ 1st đến 6th trong cây tìm 


kiếm của thủ tục DFS dùng đệ quy. 
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Trước hết ta thăm đỉnh 1 và đây nó vào ngăn xếp. 


El 


ZER 


Bước lặp Ngăn xếp u v Ngăn xếp sau mỗi bước Giải thích 
1 (1) 1 2 (1,2) Tiên sâu xuống thăm 2 
2 (1,2) 2 3 (1,2, 3) Tiên sâu xuóng thăm 3 
3 (1,2,3) 3 5 (1,2,3, 5) Tiến sâu xuống thăm 5 
4 (1,2, 3, 5) 5 | Khôngcó | (1,2,3) Lùi lại 
5 (1,2, 3) 3 | Không có | (1,2) Lùi lại 
6 (1,2) 2 4 (1,2, 4) Tiến sâu xuống thăm A 
7 (1,2, 4) 4 6 (1,2,4, 6) Tiên sâu xuống thăm 6 
8 (1,2, 4, 6) 6 | Khôngcó | (1,2,4) Lùi lại 
9 (1,2,4) 4 | Không có | (1,2) Lùi lại 
10 (1,2) 2 | Không có | (1) Lùi lại 
11 (1) 1 Không có | Ø Lùi hết dây chuyền, Xong 


Trên đây là phương pháp dựa vào tính chất của thủ tục đệ quy đê tìm ra phương pháp mô phỏng nó. 
Tuy nhiên, trên mô hình đồ thị thì ta có thể có một cách viết khác tốt hơn cũng không đệ quy: Thử 
nhìn lại cách thăm đỉnh của DFS: Từ một đỉnh u, chọn lấy một đỉnh v kề nó mà chưa thăm rồi tiến 
sâu xuống thăm v. Còn nếu mọi đỉnh kề u đều đã thăm thì lùi lại một bước và lặp lại quá trình tương 
tự, việc lùi lại này có thể thực hiện dễ dàng mà không cần dùng Stack nào cả, bởi với mỗi đỉnh u đã 
có một nhãn Trace[u] (là đỉnh mà đã từ đó mà ta tới thăm u), khi quay lui từ u sẽ lùi về đó. 

Vậy néu ta đang đứng ở đỉnh u, thì đỉnh kế tiếp phải thăm tới sẽ được tìm như trong hàm FindNext 
dưới đây: 


function FindNext(ueV): eV; (Tìm đỉnh sẽ thăm sau đỉnh u, trả về 0 nếu mọi đỉnh tới được từ S đều đã thăm} 


begin 
repeat 
for (Yv e Kẻ(u)) do 


if <v chưa thăm> then {Nếu u có đỉnh kề chưa thăm thì chọn đỉnh kề đầu tiên chưa thăm để thăm tiếp} 


begin 
Trace[v] := u; {Lưu vết 
FindNext := v; 
Exit; 

end; 


u := Trace[u]; {Nếu không, lùi về một bước. Lưu ý là Trace[S] được gán bằng n + 1} 
untilu=n + 1; 
FindNext := 0; {ở trên không Exit được tức là mọi đỉnh tới được từ S đã duyệt xong} 
end; 


begin (Thuật toán duyệt theo chiu sâu} 
Trace[S] := n + 1; 
<Khởi tạo các dinh đều là chưa thăm> 
u := S; 
repeat 
<Thông báo thăm u, đánh dấu u đã thăm>; 
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u := FindNext(u) ; 
until u = 0; 
end; 


3.3. THUẬT TOÁN TÌM KIEM THEO CHIẾU RỘNG (BREADTH FIRST 
SEARCH) 


3.3.1. Cài đặt bằng hàng đợi 

Cơ sở của phương pháp cài đặt này là "lập lịch" duyệt các đỉnh. Việc thăm một đỉnh sẽ lên lịch 
duyệt các đỉnh kể nó sao cho thứ tự duyệt là ưu tiên chiều rộng (đỉnh nào gần S hơn sẽ được duyệt 
trước). Ví dụ: Bắt đầu ta thăm đỉnh S. Việc thăm đỉnh S sẽ phát sinh thứ tự duyệt những đỉnh (xı, 
X2, xeuy Xp) kè với S (những đỉnh gần S nhất). Khi thăm đỉnh xı sẽ lại phát sinh yêu cầu duyệt những 
đỉnh (u1, us ..., Uq) kề với xı. Nhưng rõ ràng các đỉnh u này "xa" S hơn những đỉnh x nên chúng chỉ 
được duyệt khi tất cả những đỉnh x đã duyệt xong. Tức là thứ tự duyệt đỉnh sau khi đã thăm x; sẽ là: 


(xa, X3... Xp, Ul, U2,...., Uq). 


Phải duyệt sau x, 


Hình 57: Cây BFS 


Giả sử ta có một danh sách chứa những đỉnh đang "chò" thăm. Tại mỗi bước, ta thăm một đỉnh đầu 
danh sách và cho những đỉnh chưa "xếp hàng" kè với nó xếp hàng thêm vào cuối danh sách. Chính 
vì nguyên tắc đó nên danh sách chứa những đỉnh đang chờ sẽ được tổ chức dưới dạng hàng đợi 
(Queue) 

Mô hình của giải thuật có thể viết như sau: 

Bước 1: Khởi tạo: 

Các đỉnh đều ở trạng thái chưa đánh dấu, ngoại trừ đỉnh xuất phát S là đã đánh dáu 

Một hàng đợi (Queue), ban đầu chỉ có một phần tử là S. Hàng đợi dùng để chứa các đỉnh sẽ được 
duyệt theo thứ tự ưu tiên chiều rộng 

Bước 2: Lặp các bước sau đến khi hàng đợi rỗng: 

Lấy u khỏi hàng đợi, thông báo thăm u (Bắt đầu việc duyệt đỉnh u) 

Xét tất cả những đỉnh v kè với u mà chưa được đánh dấu, với mỗi đỉnh v đó: 

Đánh dấu v. 

Ghi nhận vết đường đi từ u tới v (Có thể làm chung với việc đánh dấu) 


Đây v vào hàng đợi (v sẽ chờ được duyệt tại những bước sau) 


Đại học Sw phạm Hà Nội, 1999-2002 


Các thuật toán trên đồ thị <œ 185 wën 


Bước 3: Truy vết tìm đường đi. 


program Breadth First Search 1; 

const 
InputFile = 'GRAPH.TNP'; 
OutputFile = 'PATH.OUT' ; 
max = 100; 

var 
a: array[1..max, 1..max] of Boolean; 
Free: array[1..max] of Boolean; (Free[v] & v chưa được xếp vào hàng đợi để chờ thăm} 
Trace: array[1..max] of Integer; 
Queue: array[1..max] of Integer; 
n, §, F, First, Last: Integer; 
fo: Text; 


procedure Enter; (Nhập dữ liêu} 


var 
i, u, v, m: Integer; 
fi: Text; 

begin 


Assign (fi, InputFile); Reset (fi); 
FillChar(a, Size0f (a), False); 
ReadIn (fi, n, m, S, F); 
for i := 1 to m do 
begin 
Readln (fi, u, v); 
a[u, v] := True; 
a[v, u] := True; 
end; 
Close (f1) ; 
end; 


procedure Init; {Khói tạo} 

begin 
FillChar (Free, n, True); {Các đỉnh đều chưa đánh dấu) 
Free[S] := False; {Ngoại trừ đỉnh S} 
Queue[l] := S; (Hàng đợi chỉ gồm có một đỉnh $} 


procedure Push(V: Integer); (Đẩy một đỉnh V vào hàng đợi] 
begin 

Ine (Last) ; 

Queue[last] := V; 
end; 


function Pop: Integer; (Lấy một đỉnh khỏi hàng đợi, trả về trong kết quả hàm) 
begin 

Pop := Queue[First]; 

Inc (First) ; 
end; 


procedure BFS; (Thuật toán tìm kiếm theo chiều rộng) 


var 
u, v: Integer; 
begin 
repeat 
u := Pop; (Lấy một đỉnh u khỏi hàng đợi} 
Write(fo, u, ', '); (Thông báo thăm u} 


for v := 1 to n do 
if Free[v] and a[u, v] then {Xét những đỉnh v chưa đánh dấu kè u} 
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begin 
Push(v); (Đưa v vào hàng đợi để chờ thăm) 
Free[v] := False; (Đánh dấu v} 
Trace[v] := u; {Luu vết đường đi: đỉnh liền trước v trong đường đi từ $ là u} 
end; 
until First > Last; (Cho tới khi hàng đợi rỗng) 
end; 


procedure Result; (In đường đi từ S tới F} 
begin 
WriteIn(fo); (Vào dòng thứ hai của Output file} 
Writeln(fo, 'Path from ', S, ' to ', F, '; '); 
if Free[F] then (Nếu F chua đánh dấu thăm tức là không có đường) 
WriteIn (fo, "not found') 
else (Truy vết đường đi, bắt đầu tù F} 
begin 
while F <> S do 
begin 
Write(fo, F, '<-'); 
F := Trace[F]; 
end; 
Writeln (fo, S); 
end; 
end; 


begin 
Enter; 
Assign (fo, OutputFile); Rewrite (fo) ; 
WriteLn(fo, 'From ', S, ' you can visit: '); 
Init; 
BFS; 
Result; 
Close (fo) ; 
end. 


Ví dụ: Xét đồ thị dưới đây, Đỉnh xuất phát S = 1. 


E 


[ Hogg |  Dioabu | Hàngđợ | Cácđinhvkềumà | Hàng đợi sau khi đåy | 
(lấy ra từ hàng đợi) (sau khi lấy u ra) chưa lên lịch những đỉnh v vào 

CO 1 Ø 2,3 (2,3) 
(2,3) 2 (3) 4 (3,4) 
(3, 4) 3 (4) 5 (4, 5) 
(4, 5) 4 (5) 6 (5, 6) 
(5, 6) 5 (6) Không có (6) 

(6) 6 Ø Không có Ø 


Dé ý thứ tự các phần tử lẫy ra khỏi hàng đợi, ta thấy trước hết là 1; sau đó đến 2, 3; rồi mới tới 4, 5; 


cuối cùng là 6. Rõ ràng là đỉnh gần S hơn sẽ được duyệt trước. Và như vậy, ta có nhận xét: nếu kết 
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hợp lưu vết tìm đường đi thì đường di từ S tói F sẽ là đường đi ngắn nhất (theo nghĩa qua ít cạnh 
nhất) 


3.3.2. Cài đặt bằng thuật toán loang 


Cách cài đặt này sử dụng hai tập hợp, một tập "cũ" chứa những đỉnh "đang xét", một tập "mới" 
chứa những đỉnh "sẽ xét". Ban đầu tập "cũ" chỉ gồm mỗi đỉnh xuất phát, tại mỗi bước ta sẽ dùng tập 
"cũ" tính tập "mới", tập "mới" sẽ gồm những đỉnh chưa được thăm mà kề với một đỉnh nào đó của 


tập "cũ". Lặp lại công việc trên (sau khi đã gán tập "cũ" bằng tập "mới") cho tới khi tập cũ là rỗng: 


Hình 58: Thuật toán loang 


Giải thuật loang có thể dựng như sau: 

Bước 1: Khởi tạo 

Các đỉnh khác S đều chưa bị đánh dấu, đỉnh S bị đánh dấu, tập "cũ" Old := {$} 
Bước 2: Lặp các bước sau đến khi Old = Ø 

Đặt tập "mới" New = Ø, sau đó dùng tập "cũ" tính tập "mới" như sau: 

Xét các đỉnh u e Old, với mỗi đỉnh u đó: 

Thông báo thăm u 

Xét tất cả những đỉnh v kề với u mà chưa bị đánh dấu, với mỗi đỉnh v đó: 
Đánh dấu v 

Lưu vết đường đi, đỉnh liền trước v trong đường đi S—»v là u 

Đưa v vào tập New 

Gán tập "cũ" Old := tập "mới" New và lặp lại (có thê luân phiên vai trò hai tập này) 


Bước 3: Truy vết tìm đường đi. 


program Breadth Fret Search 2; 


const 
InputFile = 'GRAPH.INP'; 
OutputFile = 'PATH.OUT' ; 
max = 100; 

var 


a: array[1..max, 1..max] of Boolean; 
Free: array[1..max] of Boolean; 
Trace: array[1..max] of Integer; 
Old, New: set of Byte; 

n, S, F: Byte; 
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fo: Text; 


procedure Enter; (Nhập dŭ liệu} 


var 
i, u, v, m: Integer; 
fi: Text; 

begin 


Assign (fi, InputFile); Reset (fi); 
FillChar(a, Size0f (a), False); 
ReadIn (fi, n, m, S, F); 
for i := 1 to m do 
begin 
ReadIn (fi, u, v); 
a[u, v] := True; 
alv, u] := True; 
end; 
Close (f1) ; 
end; 


procedure Init; 

begin 
FillChar (Free, n, True); 
Free[S] := False; {Các đỉnh đều chưa đánh dấu, ngoại trừ đỉnh S đã đánh dấu} 
Old := [S]; {Tập "cũ" khởi tạo ban đầu chỉ có mỗi S} 

end; 


procedure BFS; {Thuật toán loang} 
var 
u, v: Byte; 
begin 
repeat {Lăp: dùng Old tính New} 
New := []; 
for u := 1 to n do 
if u in Old then {Xét những đỉnh u trong tâp Old, với mỗi đỉnh u đó:} 
begin 
Write(fo, u, ', '); {Thông báo thăm u} 
for v := 1 to n do 
if Free[v] and a[u, v] then {Quét tát cả những đỉnh v chưa bị đánh dấu mà kè với u} 
begin 
Free[v] := False; {Đánh dấu v và lưu vết đường đi} 
Trace[v] := u; 
New := New + [v]; {Đưa v vào tập New} 
end; 
end; 
Old := New; {Gán tập "cũ" := tập "mới" và lặp lại} 
until 01d = []; (Cho tới khi không loang được nữa} 
end; 


procedure Result; (In đường đi từ S tới F} 


begin 
WriteIn(fo); {Vào dòng thứ hai của Output file} 
Writeln(fo, 'Path from ', S, ' to ',F, '!; !); 


if Free[F] then (Nếu F chua đánh dấu thăm tức là không có đường) 
WriteIn (fo, "not found') 
else {Truy vết đường đi, bất đầu tù F} 
begin 
while F <> § do 
begin 
Write(fo, F, '<-'); 
F ;= Trace[F]; 
end; 
Writeln(fo, S); 
end; 
end; 
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begin 
Enter; 
Assign (fo, OutputFile); Rewrite (fo) ; 
Writeln(fo, 'From ', S, ' you can visit: '); 
Tnit; 
BFS; 
Result; 
Close (fo); 
end. 


3.4. ĐỘ PHÚC TẠP TÍNH TOÁN CỦA BFS VÀ DFS 


Quá trình tìm kiếm trên đồ thị bắt đầu từ một đỉnh có thê thăm tất cả các đỉnh còn lại, khi đó cách 
biểu điễn đồ thị có ảnh hưởng lớn tới chi phí về thời gian thực hiện giải thuật: 

Trong trường hợp ta biểu diễn đồ thị bằng danh sách kề, cả hai thuật toán BFS và DFS đều có độ 
phức tạp tính toán là O(n + m) = O(max(n, m)). Đây là cách cài đặt tốt nhất. 

Nếu ta biểu dën đồ thị bằng ma trận kè như ở trên thì độ phức tạp tính toán trong trường hợp này là 
Oln + n2) =O(n'. 

Nếu ta biểu diễn đồ thị bằng danh sách cạnh, thao tác duyệt những đỉnh kè với đỉnh u sẽ dẫn tới 
việc phải duyệt qua toàn bộ danh sách cạnh, đây là cài đặt tôi nhất, nó có độ phức tạp tính toán là 
O(n.m). 

Bài tập 

Mê cung hình chữ nhật kích thước m x n gồm các ô vuông đơn vị. Trên mỗi ô ký tự: 

O: Nếu ô đó an toàn 

X: Nếu ô đó có cạm bẫy 

E: Nếu là ô có một nhà thám hiểm đang đứng. 

Duy nhất chỉ có 1 ô ghi chữ E. Nhà thám hiểm có thể từ một ô đi sang một trong số các ô chung 
cạnh với ô đang đứng. Một cách đi thoát khỏi mê cung là một hành trình đi qua các ô an toàn ra một 


ô biên. Hãy chỉ giúp cho nhà thám hiểm một hành trình thoát ra khỏi mê cung 
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§4. TÍNH LIÊN THÔNG CỦA ĐỎ THỊ 


4.1. ĐỊNH NGHĨA 


4.1.1. Đối với đồ thị vô hướng G = (V, E) 

G gọi là liên thông (connected) nếu luôn tồn tại đường đi giữa mọi cặp đỉnh phân biệt của đồ thị. 
Nếu G không liên thông thì chắc chăn nó sẽ là hợp của hai hay nhiều đồ thị con” liên thông, các đồ 
thị con này đôi một không có đỉnh chung. Các đồ thị con liên thông rời nhau như vậy được gọi là 


các thành phần liên thông của đồ thị đang xét (Xem ví dụ). 


Hình 59: Đồ thị G và các thành phần liên thông G1, G2, G3 của nó 


Đôi khi, việc xoá đi một đỉnh và tất cả các cạnh liên thuộc với nó sẽ tạo ra một đồ thị con mới có 
nhiều thành phần liên thông hơn đồ thị ban đầu, các đỉnh như thế gọi là đỉnh cắt hay điểm khớp. 
Hoàn toản tương tự, những cạnh mà khi ta bỏ nó đi sẽ tạo ra một đồ thị có nhiều thành phần liên 


thông hơn so với đồ thị ban đầu được gọi là một cạnh cắt hay một cầu. 


Ka 


Khớp Cầu 
Hình 60: Khớp và cầu 
4.1.2. Đối với đồ thị có hướng G = (V, E) 


Có hai khái niệm về tính liên thông của đồ thị có hướng tuỳ theo chúng ta có quan tâm tới hướng 


của các cung không. 


" Đồ thị G = (V, E) là con của đồ thị G' = (V', E') nếu G là đồ thị có VCV' và E c E' 
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G gọi là liên thông manh (Strongly connected) nếu luôn tồn tại đường đi (theo các cung định 
hướng) giữa hai đỉnh bất kỳ của đồ thị, e gọi là liên thông yếu (weakly connected) nếu đồ thị vô 


hướng nên của nó là liên thông 


Via wk 


Hình 61: Liên thông mạnh và liên thông yếu 
4.2. TÍNH LIÊN THÔNG TRONG ĐỎ THỊ VÔ HƯỚNG 


Một bài toán quan trọng trong lý thuyết đồ thị là bài toán kiểm tra tính liên thông của đồ thị vô 
hướng hay tông quát hơn: Bài toán liệt kê các thành phần liên thông của đồ thị vô hướng. 
Giả sử đồ thị vô hướng G = (V, E) có n đỉnh đánh số 1, 2, ..., n. 
Đề liệt kê các thành phần liên thông của G phương pháp cơ bản nhất là: 
Đánh dấu đỉnh 1 và những đỉnh có thê đến từ 1, thông báo những đỉnh đó thuộc thành phần liên 
thông thứ nhất. 
Nếu tất cả các đỉnh đều đã bị đánh dấu thì G là đồ thị liên thông, nếu không thì sẽ tồn tại một đỉnh v 
nào đó chưa bị đánh dấu, ta sẽ đánh dấu v và các đỉnh có thể đến được từ v, thông báo những đỉnh 
đó thuộc thành phần liên thông thứ hai. 
Và cứ tiếp tục như vậy cho tới khi tất cả các đỉnh đều đã bị đánh dấu 
procedure Duyệt (u) 
begin 
<Dùng BFS hoặc DFS liệt kê và đánh dấu những đỉnh có thể đến được từ u> 
end; 
begin 
for Y v e V do <khởi tạo v chưa đánh dës: 
Count := 0; 
for u := 1 to n do 
if <u chưa đánh dấu> then 
begin 
Count := Count + 1; 
WriteLn('Thành phần liên thông thứ ', Count, ' gồm các đỉnh : '); 
Duyệt (u) ; 


end; 
end. 


Với thuật toán liệt kê các thành phần liên thông như thế này, thì độ phức tạp tính toán của nó đúng 


bằng độ phức tạp tính toán của thuật toán tìm kiếm trên đồ thị trong thủ tục Duyệt. 


4.3. ĐỎ THỊ ĐÂY DU VÀ THUẬT TOÁN WARSHALL 


4.3.1. Định nghĩa: 
Đồ thị đầy đủ với n đỉnh, ký hiệu Kn, là một đơn đồ thị vô hướng mà giữa hai đỉnh bất kỳ của nó 


đêu có cạnh nôi. 
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À uc XÃ .(n-l1 . OS 
Đô thị đây đủ Kn có đúng: c = Wé cạnh và bậc của mọi đỉnh đêu băng n - 1. 


Hình 62: Đồ thị đầy đủ 


4.3.2. Bao đóng đồ thị: 
Với đồ thị G = (V, E), người ta xây dựng đồ thị G' = (V, E') cũng gồm những đỉnh của G còn các 
cạnh xây dựng như sau: (ở đây quy ước giữa u và u luôn có đường đi) 
Giữa đỉnh u và v của G' có cạnh nối Giữa đỉnh u và v của G có đường đi 
Đồ thị G' xây dựng như vậy được gọi là bao đóng của đồ thị G. 
Từ định nghĩa của đồ thị đầy đủ, ta dé dàng suy ra một đồ thị đầy đủ bao giờ cũng liên thông và từ 
định nghĩa đồ thị liên thông, ta cũng dë dàng suy ra được: 
Một đơn đồ thị vô hướnglà liên thông nếu và chỉ nếu bao đóng của nó là đồ thị đầy đủ 
Một đơn đồ thị vô hướng có k thành phần liên thông nếu và chỉ nếu bao đóng của nó có k thành 


phần liên thông đầy đủ. 

d: = R 

Hình 63: Đơn đồ thị vô hướng và bao đóng của nó 
Bởi việc kiểm tra một đồ thị có phải đồ thị đầy đủ hay không có thê thực hiện khá dè dàng (đếm số 
cạnh chăng hạn) nên người ta nảy ra ý tưởng có thể kiểm tra tính liên thông của đồ thị thông qua 


việc kiểm tra tính đầy đủ của bao đóng. Vẫn đề đặt ra là phải có thuật toán xây dựng bao đóng của 


một đồ thị cho trước và một trong những thuật toán đó là: 


4.3.3. Thuật toán Warshall 

Thuật toán Warshall - gọi theo tên của Stephen Warshall, người đã mô tả thuật toán này vào năm 
1960, đôi khi còn được gọi là thuật toán Roy-Warshall vì Roy cũng đã mô tả thuật toán này vào 
năm 1959. Thuật toán đó có thê mô tả rất gọn: 
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Từ ma trận kề A của đơn đồ thị vô hướng G (ou = True nếu (i, j) là cạnh của G) ta sẽ sửa đổi A để 
nó trở thành ma trận kề của bao đóng bằng cách: Với mọi đỉnh k xét theo thứ tự từ 1 tới n, ta xét 
tất cả các cặp đỉnh (u, v): nếu có cạnh nối (u, k) (auk = True) và có canh nối (k, v) (axy = True) 
thì ta tự nói thêm cạnh (u, v) nếu nó chưa có (đặt auy := True). Tư tưởng này dựa trên một quan 
sát đơn giản như sau: Nếu từ u có đường đi tới k và từ k lại có đường đi tới v thì tất nhiên từ u sẽ có 
đường đi tới v. 

Với n là số đỉnh của đồ thị, ta có thê viết thuật toán Warshall như sau: 


for k := 1 to n do 
for u := 1 to n do 
if a[u, k] then 
for v := 1 to n do 
if a[k, v] then a[u, v] := True; 
hoăc 
for k := 1 to n do 
for u := 1 to n do 
for v := 1 to n do 
a[u, v] := a[u, v] or a[u, k] and a[k, v]; 
Việc chứng minh tính đúng đăn của thuật toán đòi hỏi phải lật lại các lý thuyêt vê bao đóng bắc câu 


và quan hệ liên thông, ta sẽ không trình bày ở đây. Có nhận xét rằng tuy thuật toán Warshall rất dễ 
cài đặt nhưng độ phức tạp tính toán của thuật toán này khá lớn (O(®)). 

Dưới đây, ta sẽ thử cài đặt thuật toán Warshall tìm bao đóng của đơn đồ thị vô hướng sau đó đếm số 
thành phần liên thông của đồ thị: 

Việc cài đặt thuật toán sẽ qua những bước sau: 

Nhập ma trận kề A của đồ thị (Lưu ý ở đây Afv, v] luôn được coi là True với Yv) 

Dùng thuật toán Warshall tìm bao đóng, khi đó A là ma trận kè của bao đóng đồ thị 

Dựa vào ma trận kề A, đỉnh 1 và những đỉnh kề với nó sẽ thuộc thành phần liên thông thứ nhất; với 
đỉnh u nào đó không kề với đỉnh 1, thì u cùng với những đỉnh kè nó sẽ thuộc thành phần liên thông 
thứ hai; với đỉnh v nào đó không kè với cả đỉnh 1 và đỉnh u, thì v cùng với những đỉnh kề nó sẽ 
thuộc thành phần liên thông thứ ba v.v... 


1 u 


Input: file văn bản GRAPH.INP 
e Dòng 1: Chúa số đỉnh n (< 100) và số cạnh m của đồ thị cách nhau ít nhất một dấu cách 
e m dòng tiếp theo, mỗi dòng chứa một cặp số u và v cách nhau ít nhất một dấu cách tượng 
trưng cho một cạnh (u, v) 


Output: file văn bản CONNECT.OUT, liệt kê các thành phần liên thông 


Lê Minh Hoàng 


& 194 wës Chuyên đề 


GRAPH. INP || CONNECT.OUT 
129 Connected Component 1: 
13 1, 2, 3, 4; 5; 
14 Connected Component 2: 
15 6,1, 8, 
24 Connected Component 3: 
67 9, 10, 11, 12, 
68 
9 10 
9 11 
11 12 
program Connectivity; 
const 
InputFile = 'GRAPH.INP'; 
OutputFile = 'CONNECT.OUT'; 
max = 100; 
var 


a: array[1..max, 1..max] of Boolean; {Ma trận kè của đổ thị) 

Free: array[1..max] of Boolean; {Free[v] = True & v chua được liệt kê vào thành phàn liên thông nào} 
k, u, v, n: Integer; 

Count: Integer; 

fo: Text; 


procedure Enter; (Nhập đỏ thị) 


var 
i, u, v, m: Integer; 
fi: Text; 

begin 


FillChar(a, Size0f (a), False); 
Assign(fi, InputFile); Reset (fi); 
Readln (fi, n, m); 
for v := 1 to n do a[v, v] := True; {Di nhiên tù v có đường đi đến chính v} 
for i := 1 to m do 
begin 
Readln (fi, u, v); 
a[u, v] := True; 
a[v, u] := True; 
end; 
Close (f1) ; 
end; 


begin 
Enter; 
{Thuật toán Warshall} 
for k := 1 to n do 
for u := 1 to n do 
for v := 1 to n do 
a[u, v] := a[u, v] or a[u, k] and a[k, v]; 
Assign (fo, OutputFile); Rewrite (fo) ; 
Count := 0; 
FillChar (Free, n, True); (Mọi đỉnh đều chưa được liệt kê vào thành phần liên thông nào} 
for u := 1 to n do 
if Free[u] then (Với môt đỉnh u chưa được liệt kê vào thành phàn liên thông nào} 
begin 
Inc (Count) ; 
WriteLn(fo, 'Connected Component ', Count, ': '); 
for v := 1 to n do 
if a[u, v] then {Xét những đỉnh kè u (trên bao đóng) } 
begin 
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Write(fo, v, ', '); {Liệt kê đỉnh đó vào thành phần liên thông chứa u} 
Free[v] := False; {Liệt kê đỉnh nào đánh dấu đỉnh đó} 
end; 
Writeln (fo); 
end; 
Close (fo) ; 


end. 


4.4. CÁC THÀNH PHẢN LIÊN THÔNG MANH 


Đối với đồ thị có hướng, người ta quan tâm đến bài toán kiểm tra tính liên thông mạnh, hay tông 
quát hơn: Bài toán liệt kê các thành phần liên thông mạnh của đồ thị có hướng. Đối với bài toán đó 


ta có một phương pháp khá hữu hiệu dựa trên thuật toán tìm kiếm theo chiều sâu Depth First Search. 


4.4.1. Phân tích 
Thêm vào đồ thị một đỉnh x và nối x với tất cả các đỉnh còn lại của đồ thị bằng các cung định hướng. 
Khi đó quá trình tìm kiếm theo chiều sâu bắt đầu từ x có thể coi như một quá trình xây dựng cây tìm 
kiếm theo chiều sâu (cây DFS) gốc x. 
procedure Visit (ueV) ; 
begin 

<Thêm u vào cây tìm kiếm DF$>; 

for (Yv: (u, v)eE) do 


if <v không thuộc cây DFS> then Visit(v) ; 
end; 


begin 
e vào đồ thị đỉnh x và các cung định hướng (x, v) với mọi v>; 
<Khởi tạo cây tìm kiếm DFS := Ø>; 
Visit(x) ; 
end. 
Đề ý thủ tục thăm đỉnh đệ quy Visit(u). Thủ tục này xét tất cả những đỉnh v nối từ u, nếu v chưa 


được thăm thì đi theo cung đó thăm v, tức là bô sung cung (u, v) vào cây tìm kiếm DFS. Nếu v đã 
thăm thì có ba khả năng xảy ra đối với vị trí của u và v trong cây tìm kiếm DES: 

v là tiền bối (ancestor - tô tiên) của u, tức là v được thăm trước u và thủ tục Visit(u) do dây chuyền 
đệ quy từ thủ tục Visit(v) gọi tới. Cung (u, v) khi đó được gọi là cung ngược (Back edge) 

v là hậu duệ (descendant - con cháu) của u, tức là u được thăm trước v, nhưng thủ tục Visit(u) sau 
khi tiến đệ quy theo một hướng khác đã gọi Visit(v) rồi. Nên khi dây chuyền đệ quy lùi lại về thủ 
tục Visit(u) sẽ thấy v là đã thăm nên không thăm lại nữa. Cung (u, v) khi đó gọi là cung xuôi 
(Forward edge). 

v thuộc một nhánh của cây DES đã duyệt trước đó, tức là sẽ có một đỉnh w được thăm trước cả u vả 
v. Thủ tục Visit(w) gọi trước sẽ rẽ theo một nhánh nào đó thăm v trước, rồi khi lùi lại, rẽ sang một 
nhánh khác thăm u. Cung (u, v) khi đó gọi là cung chéo (Cross edge) 

(Rất tiếc là từ điển thuật ngữ tin học Anh-Việt quá nghèo nàn nên không thê tìm ra những từ tương 


đương với các thuật ngữ ở trên. Ta có thê hiệu qua các ví dụ). 
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THỊ: v là tiền bối của u TH2: v là hậu duệ của u TH3: v nằm ở nhánh DES đã duyệt trước u 
(u, v) là cung ngược (u, v) là cung xuôi (u, v là cung chéo) 


Hình 64: Ba dạng cung ngoài cây DES 


Ta nhận thấy một đặc điểm của thuật toán tìm kiếm theo chiều sâu, thuật toán không chỉ duyệt qua 
các đỉnh, nó còn duyệt qua tất cả những cung nữa. Ngoài những cung nằm trên cây tìm kiếm, những 


cung còn lại có thê chia làm ba loại: cung ngược, cung xuôi, cung chéo. 


4.4.2. Cây tìm kiếm DES và các thành phần liên thông mạnh 
Định lý 1: 
Nếu a, b là hai đỉnh thuộc thành phần liên thông mạnh C thì với mọi đường đi từ a tới b cũng 
như từ b tới a. Tất cả đỉnh trung gian trên đường đi đó đều phải thuộc C. 
Chứng minh 
Nếu a và b là hai đỉnh thuộc C thì tức là có một đường đi từ a tới b và một đường đi khác từ b tới a. 
Suy ra với một đỉnh v nằm trên đường đi từ a tới b thì a tới được v, v tới được b, mà b có đường tới 
a nên v cũng tới được a. Vậy v nằm trong thành phần liên thông mạnh chứa a tức là veC. Tương 
tự với một đỉnh nằm trên đường đi từ b tới a. 
Định lý 2: 
Với một thành phần liên thông mạnh C bắt kỳ, sẽ tồn tại một đỉnh r €C sao cho mọi đỉnh của 
C đều thuộc nhánh DFS góc r. 
Chứng minh: 
Trước hết, nhắc lại một thành phần liên thông mạnh là một đồ thị con liên thông mạnh của đồ thị 
ban đầu thoả mãn tính chất tối đại tức là việc thêm vào thành phần đó một tập hợp đỉnh khác sẽ làm 
mắt đi tính liên thông mạnh. 
Trong số các đỉnh của C, chọn r là đỉnh được thăm đầu tiên theo thuật toán tìm kiếm theo chiều 
sâu. Ta sẽ chứng minh C nằm trong nhánh DES góc r. Thật vậy: với một đỉnh v bất kỳ của C, do C 
liên thông mạnh nên phải tồn tại một đường đi từ r tói v: 

(t= X0, X1, ..., Xk = V) 
Từ định lý 1, tát cả các đỉnh xị, xa, ..., Xk đều thuộc C nên chúng sẽ phải thăm sau đỉnh r. Khi thủ 


tục Visit(r) được gọi thì tất cả các đỉnh X1, Xa..., MN đều chưa thăm; vì thủ tục Visit(r) sẽ liệt kê tất 
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cả những đỉnh chưa thăm đến được từ r bằng cách xây dựng nhánh gốc r của cây DFS, nên các đỉnh 
X1; Xa, ..., Xk = V sẽ thuộc nhánh góc r của cây DFS. Bởi chọn v là đỉnh bát ky trong C nên ta có 
điều phải chứng minh. 

Đỉnh r trong chứng minh định lý - đỉnh thăm trước tẤt cả các đỉnh khác trong C - gọi là chốt của 
thành phần C. Mỗi thành phần liên thông mạnh có duy nhất một chốt. Xét về vị trí trong cây tìm 
kiếm DFS, chốt của một thành phần liên thông là đỉnh nằm cao nhất so với các đỉnh khác thuộc 
thành phần đó, hay nói cách khác: là tiền bối của tất cả các đỉnh thuộc thành phần đó. 

Định lý 3: 

Luôn tìm được đỉnh chốt a thoả mãn: Quá trình tìm kiếm theo chiều sâu bắt đầu từ a không 
thăm được bắt kỳ một chốt nào khác. (Tức là nhánh DFS gốc a không chứa một chốt nào ngoài a) 
chäng hạn ta chọn a là chốt được thăm sau cùng trong một dây chuyền đệ quy hoặc chọn a là chốt 
thăm sau tất cả các chốt khác. Với chốt a như vậy thì các đỉnh thuộc nhánh DES sốc a chính là 
thành phần liên thông mạnh chứa a. 

Chứng minh: 

Với mọi đỉnh v nằm trong nhánh DFS gốc a, xét b là chốt của thành phần liên thông mạnh chứa v. 
Ta sẽ chứng minh a = b. Thật vậy, theo định lý 2, v phải nằm trong nhánh DES gốc b. Vậy v nằm 
trong cả nhánh DFS gốc a và nhánh DFS góc b. Giả sử phản chứng rằng azb thì sẽ có hai khả năng 
Xảy Ta: 

Khả năng 1: Nhánh DES gốc a chứa nhánh DES gốc b, có nghĩa là thủ tục Visit(b) sẽ do thủ tục 
Visit(a) gọi tới, điều này mâu thuẫn với giả thiết rằng a là chốt mà quá trình tìm kiếm theo chiều sâu 
bắt đầu từ a không thăm một chốt nào khác. 

Khả năng 2: Nhánh DFS gốc a nằm trong nhánh DFS gốc b, có nghĩa là a nằm trên một đường đi từ 
b tới v. Do b và v thuộc cùng một thành phần liên thông mạnh nên theo định lý 1, a cũng phải thuộc 
thành phần liên thông mạnh đó. Vậy thì thành phần liên thông mạnh này có hai chốt a và b. Điều 
này vô lý. 

Theo định lý 2, ta đã có thành phần liên thông mạnh chứa a nằm trong nhánh DFS gốc a, theo 
chứng minh trên ta lại có: Mọi đỉnh trong nhánh DFS gốc a nằm trong thành phần liên thông 


mạnh chứa a. Kết hợp lại được: Nhánh DFS gốc a chính là thành phần liên thông mạnh chứa a. 
4.4.3. Thuật toán Tarjan (R.E.Tarjan - 1972) 

Chọn u là chốt mà từ đó quá trình tìm kiếm theo chiều sâu không thăm thêm bắt kỳ một chốt nào 
khác, chọn lấy thành phần liên thông mạnh thứ nhất là nhánh DFS gốc u. Sau đó loại bỏ nhánh DFS 


gốc u ra khỏi cây DFS, lại tìm thấy một đỉnh chốt v khác mà nhánh DFS gốc v không chứa chốt nào 
khác, lại chọn lấy thành phần liên thông mạnh thứ hai là nhánh DFS gốc v. Tương tự như vậy cho 
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thành phần liên thông mạnh thứ ba, thứ tư, v.v... Có thê hình dung thuật toán Tarjan "bẻ" cây DFS 


tại vị trí các chốt để được các nhánh rời rạc, mỗi nhánh là một thành phân liên thông mạnh. 


Hình 65: Thuật toán Tarjan "bé" cây DFS 

Trình bày dài dòng như vậy, nhưng điều quan trọng nhất bây giờ mới nói tới: Làm thế nào kiểm 
tra một đỉnh v nào đó có phải là chốt hay không ? 
Hãy đề ý nhánh DFS gốc ở đỉnh r nào đó. 
Nhận xét 1: 
Nếu như từ các đỉnh thuộc nhánh gốc r này không có cung ngược hay cung chéo nào đi ra khỏi 
nhánh đó thì r là chốt. Điều này dễ hiểu bởi như vậy có nghĩa là từ r, đi theo các cung của đồ thị 
thì chỉ đến được những đỉnh thuộc nhánh đó mà thôi. Vậy: 

Thành phần liên thông mạnh chứa r c Tập các đỉnh có thể đến từ r = Nhánh DFS gốc r 
nên r là chốt. 
Nhận xét 2: 
Nếu từ một đỉnh v nào đó của nhánh DES gốc r có một cung ngược tới một đỉnh w là tiền bối 
của r, thì r không là chốt. Thật vậy: do có chu trình (w—>r->v—>w) nên w, r, v thuộc cùng một 
thành phần liên thông mạnh. Mà w được thăm trước r, điều này mâu thuẫn với cách xác định chốt 
(Xem lại định lý 2) 
Nhận xét 3: 
Vấn đề phức tạp gặp phải ở đây là nếu từ một đỉnh v của nhánh DFS gốc r, có một cung chéo đi tới 
một nhánh khác. Ta sẽ thiết lập giải thuật liệt kê thành phần liên thông mạnh ngay trong thủ tục 
Visit(u), khi mà đỉnh u đã duyệt xong, tức là khi các đỉnh khác của nhánh DES gốc u đều đã 
thăm và quá trình thăm đệ quy lùi lại về Visit(u). Nếu như u là chốt, ta thông báo nhánh DFS gốc u 
là thành phần liên thông mạnh chứa u và loại ngay các đỉnh thuộc thành phần đó khỏi đồ thị cũng 


như khỏi cây DFS. Có thể chứng minh được tính đúng đắn của phương pháp này, bởi néu nhánh 
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DFS gốc u chứa một chốt u' khác thì u' phải duyệt xong trước u và cả nhánh DFS gốc u' đã bị loại 
bỏ rồi. Hơn nữa còn có thể chứng minh được rằng, khi thuật toán tién hành như trên thì nếu như từ 
một đỉnh v của một nhánh DES gốc r có một cung chéo đi tới một nhánh khác thì r không là 
chốt. 
Đề chứng tỏ điều này, ta dựa vào tính chất của cây DFS: cung chéo sẽ nối từ một nhánh tới nhánh 
thăm trước đó, chứ không bao giờ có cung chéo đi tới nhánh thăm sau. Giå sử có cung chéo (v, vi 
đi từ v e nhánh DFS góc r tới vi nhánh DFS gốc r, gọi r' là chốt của thành phần liên thông chứa vi. 
Theo tính chất trên, v' phải thăm trước r, suy ra r' cũng phải thăm trước r. Có hai khả năng xảy ra: 
Nếu r' thuộc nhánh DFS đã duyệt trước r thì r' sẽ được duyệt xong trước khi thăm r, tức là khi thăm 
r và cả sau này khi thăm v thì nhánh DFS gốc r' đã bị huỷ, cung chéo (v, v') sẽ không được tính đến 
nữa. 
Nếu r' là tiền bối của r thì ta có r' đến được r, v nằm trong nhánh DFS gốc r nên r đến được v, v 
đến được v' vì (v, v') là cung, v' lại đến được r' bởi r' là chốt của thành phần liên thông mạnh chứa 
vi. Ta thiết lập được chu trình (r—>r->v—>v'—>r'), suy ra r' và r thuộc cùng một thành phần liên thông 
mạnh, r' đã là chốt nên r không thể là chốt nữa. 
Từ ba nhận xét và cách cài đặt chương trình như trong nhận xét 3, Ta có: Đỉnh r là chốt nếu và chỉ 
nếu không tồn tại cung ngược hoặc cung chéo nối một đỉnh thuộc nhánh DFS gốc r với một đỉnh 
ngoài nhánh đó, hay nói cách khác: r là chốt nếu và chỉ nếu không tồn tại cung nối từ một đỉnh 
thuộc nhánh DES gốc r tới một đỉnh thăm trước r. 
Dưới đây là một cài đặt hết sức thông minh, chỉ cần sửa đổi một chút thủ tục Visit ở trên là ta có 
ngay phương pháp này. Nội dung của nó là đánh số thứ tự các đỉnh từ đỉnh được thăm đầu tiên đến 
đỉnh thăm sau cùng. Định nghĩa Numbering[u] là số thứ tự của đỉnh u theo cách đánh số đó. Ta tính 
thêm Low{u] là giá trị Numbering nhỏ nhất trong các đỉnh có thể đến được từ một đỉnh v nào đó 
của nhánh DFS gốc u bằng một cung (với giả thiết rằng u có một cung giả nối với chính u). 
Cụ thể cách cực tiêu hoá Low[u] như sau: 
Trong thủ tục Visit(u), trước hết ta đánh số thứ tự thăm cho đỉnh u và khởi gán 
Lowf{u] := Numbering[{u] (u có cung tới chính u) 
Xét tất cả những đỉnh v nối từ u: 
Nếu v đã thăm thì ta cực tiểu hoá Low[u] theo công thức: 
Low[{u]møi := min(Low[{ulcä, Numbering[v]). 
Nếu v chưa thăm thì ta gọi đệ quy đi thăm v, sau đó cực tiêu hoá Low[u] theo công thức: 
Low[{u]mø¡ := min(Low[u]c¡, Low[v]) 
Dễ dàng chứng minh được tính đúng đắn của công thức tính. 
Khi duyệt xong một đỉnh u (chuẩn bị thoát khỏi thủ tục Visit(u). Ta so sánh Low[u] và 


Numbering[u]. Nếu như Low[u] = Numbering[u] thì u là chốt, bởi không có cung nối từ một đỉnh 
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thuộc nhánh DFS gốc u tới một đỉnh thăm trước u. Khi đó chỉ việc liệt kê các đỉnh thuộc thành phần 
liên thông mạnh chứa u là nhánh DFS gốc u. 

Đề công việc dễ dàng hơn nữa, ta định nghĩa một danh sách L được tô chức dưới dạng ngăn xếp và 
dùng ngăn xếp này để lấy ra các đỉnh thuộc một nhánh nào đó. Khi thăm tới một đỉnh u, ta đây ngay 
đỉnh u đó vào ngăn xếp, thì khi duyệt xong đỉnh u, mọi đỉnh thuộc nhánh DFS gốc u sẽ được đây 
vào ngăn xếp L ngay sau u. Nếu u là chốt, ta chỉ việc lấy các đỉnh ra khỏi ngăn xếp L cho tới khi láy 
tới đỉnh u là sẽ được nhánh DES gốc u cũng chính là thành phần liên thông mạnh chứa u. 


procedure Visit (ueŸ) ; 
begin 
Count := Count + 1; Numbering[u] := Count; {Trước hết đánh số u} 
1ow[u] := Numbering[u]; 
Dua u vào cây DFS>; 
<Đây u vào ngăn xếp L>; 
for (Vv: (u, v)eE) do 
if <v đã thăm> then 
Low[u] := min(Low[u], Numbering[v]) 
else 
begin 
Visit(v); 
Low[u] := min(Low[u], Low[v]); 
end; 
if Numbering[u] = Low[u] then {Néu u là chót} 
begin 
<Thông báo thành phàn liên thông mạnh với chốt u gồm có các dinh:>; 
repeat 
<Láy từ ngăn xếp L ra một dinh v>; 
<0utput v>; 
<‹Xoá đỉnh v khỏi đồ thị>; 
until v = u; 
end; 
end; 


begin 
<Thêm vào đồ thị một đỉnh x và các cung (x, v) với mọi v>; 
<Khởi tạo một biến đếm Count := 0>; 
<Khởi tạo một ngăn xếp L := Ø>; 
<Khởi tạo cây tìm kiếm DFS := Ø>; 
Visit(x) 
end. 
Bởi thuật toán Tarjan chỉ là sửa đối một chút thuật toán DFS, các thao tác vào/ra ngăn xếp được thực 


hiện không quá n lần. Vậy nên nếu đồ thị có n đỉnh và m cung thì độ phức tạp tính toán của thuật toán 

Tarjan vẫn là O(n + m) trong trường hợp biểu diễn đồ thị bằng danh sách kè, là O(nô) trong trường hợp 

biểu dën bằng ma trận kè và là O(n.m) trong trường hợp biểu diễn bằng danh sách cạnh. 

Mọi thứ đã sẵn sàng, dưới đây là toàn bộ chương trình. Trong chương trình này, ta sử dụng: 

e _ Ma trận kề A để biểu diễn đồ thị. 

° Mảng Free kiêu Boolean, Free[u] = True néu u chưa bị liệt kê vào thành phần liên thông nào, tức 
là u chưa bị loại khỏi đồ thị. 

° Máng Numbering và Low với công dụng như trên, quy ước Numbering[u] = 0 nếu đỉnh u chưa 


được thăm. 


Đại học Sw phạm Hà Nội, 1999-2002 


Các thuật toán trên đồ thị <œ 20] wën 


° Mäng Stack, thủ tục Push, hàm Pop dë mô tả cấu trúc ngăn xếp. 

Input: file văn bản GRAPH.INP: 

° Dòng đầu: Ghi số đỉnh n (< 100) và số cung m của đồ thị cách nhau một dấu cách 

° m dòng tiếp theo, mỗi dòng ghi hai số nguyên u, v cách nhau một dấu cách thể hiện có cung (u, v) 
trong đồ thị 

Output: file văn bản GRAPH.OUT, liệt kê các thành phần liên thông mạnh 


GRAPH.INP || 5CONNECT.OUT 
11 15 Component 1: 
12 1, 6, 5, 

18 Component 2: 
23 4, 3, 2, 

34 Component 3: 
42 11, 10, 9, 8, 
45 Component 4: 
56 de 

67 

75 

89 

94 

9 10 

10 8 

10 11 

11 8 


program Strong_connectivity; 


const 
InputFile = 'GRAPH.INP'; 
OutputFile = 'GRAPH.OUT' ; 
max = 100; 

var 


a: array[1..max, 1..max] of Boolean; 

Free: array[1..max] of Boolean; 

Numbering, Low, Stack: array[1..max] of Integer; 
n, Count, ComponentCount, Last: Integer; 

fo: Text; 


procedure Enter; 


var 
i, u, v, m: Integer; 
fi: Text; 

begin 


Assign(fi, InputFile); Reset (fi); 
FillChar(a, Size0f (a), False); 
Readln (fi, n, m); 
for i := 1 to m do 
begin 
Readln (fi, u, v); 
a[u, v] := True; 
end; 
Close (f1) ; 
end; 


procedure Init; {Khói tạo} 

begin 
FillChar (Numbering, $ize0f (Numbering), 0); (Mọi đỉnh đều chua thăm) 
FillChar (Free, SizeOf (Free), True); {Chua đỉnh nào bị loại} 
Last := 0; {Ngăn xếp rỗng) 
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Count := 0; (Biến đánh số thứ tų thăm) 
ComponentCount := 0; (Biến đánh số các thành phần liên thông} 
end; 


procedure Push(v: Integer); (Đẩy một đỉnh v vào ngăn xếp] 
begin 

Ine (Last) ; 

Stack[last] := v; 
end; 


function Pop: Integer; (Lấy một đỉnh khỏi ngăn xếp, trả vè trong kết quả hàm} 


begin 
Pop := Stack[Last] ; 
Dec (Last) ; 

end; 


function Min(x, y: Integer): Integer; 
begin 

if x < y then Min := x else Min := y; 
end; 


procedure Visit(u: Integer); (Thuật toán tìm kiếm theo chiều sâu bắt đầu tù u} 
Var 
v: Integer; 
begin 
Inc(Count); Numbering[u] := Count; (Trước hết đánh số cho u} 
Low[u] := Numbering[u]; {Coi u có cung tói u, nên có thể khởi gán Low[u] thế này rôi sau cực tiểu hoá dàn} 
Push (u); (Đẩy u vào ngăn xếp] 
for v := 1 to n do 
if Free[v] and a[u, v] then (Xét những đỉnh v kè u} 
if Numbering[v] <> 0 then (Nếu v đã thăm} 
Low[u] := Min(Low[u], Numbering[v]) (Cục tiểu hoá Low[u] theo công thúc này} 
else (Nếu v chưa thằm) 
begin 
Visit(v); (Tiếp tục tìm kiếm theo chiều sâu bắt đầu tù v} 
1ow[u] := Min(Low[u], Low[v]); (Rồi cục tiểu hoá Low[u] theo công thức này} 
end; 
(Đến đây thì đỉnh u được duyệt xong, tức là các đỉnh thuộc nhánh DES gốc u đều đã thăm} 
if Numbering[u] = Low[u] then (Nếu u là chốt} 
begin (Liệt kê thành phàn liên thông mạnh có chốt u} 
Inc (ComponentCount) ; 


Writeln(fo, 'Component ', ComponentCount, ': '); 
repeat 
v := Pop; (Lấy dàn các đỉnh ra khỏi ngăn xếp] 
Write(fo, v, ', '); (liệt kê các đỉnh đó} 


Free[v] := False; {Rôi loại luôn khỏi đổ thị) 
until v = u; {Cho tới khi láy tới đỉnh u} 
WriteLn (fo); 
end; 
end; 


procedure Solve; 
var 
u: Integer; 
begin 
{Thay vì thêm một đỉnh giả x và các cung (x, v) với mọi đỉnh v rồi gọi Visit(x), ta có thể làm thé này cho nhanh} 
{sau này đỡ phải huỷ bỏ thành phần liên thông gồm mỗi một đỉnh giả đó} 
for u := 1 to n do 
if Numbering[u] = 0 then Visit (u); 
end; 


begin 


Enter; 
Assign (fo, OutputFile); Rewrite (fo); 
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Init; 

Solve; 

Close (fo); 
end. 


Bài tâp 

Bài 1 

Phương pháp cài đặt như trên có thể nói là rất hay và hiệu quả, đòi hỏi ta phải hiểu rõ bản chất thuật 
toán, nếu không thì rất dé nhằm. Trên thực tế, còn có một phương pháp khác dé hiểu hơn, tuy tính 
hiệu quả có kém hơn một chút. Hãy viết chương trình mô tả phương pháp sau: 

Vẫn dùng thuật toán tim kiếm theo chiều sâu với thủ tục Visit nói ở đầu mục, đánh số lại các đỉnh từ 
1 tới n theo thứ tự duyệt xong, sau đó đảo chiêu tất cả các cung của đồ thị. Xét lân lượt các đỉnh 
theo thứ tự từ đỉnh duyệt xong sau cùng tới đỉnh duyệt xong đâu tiên, với mỗi đỉnh đó, ta lại dùng 
thuật toán tìm kiếm trên dô thị (BFS hay DFS) liệt kê những dinh nào đến được từ đỉnh đang xét, đó 
chính là một thành phân liên thông mạnh. Lưu ý là khi liệt kê xong thành phần nào, ta loại ngay các 
đỉnh của thành phần đó khỏi dô thị. 

Tính đúng đắn của phương pháp có thể hình dung không mấy khó khăn: 

Trước hết ta thêm vào đồ thị đỉnh x và các cung (x, v) với mọi v, sau đó gọi VIsit(x) để xây dựng 
cây DFS gốc x. Hiển nhiên x là chốt của thành phần liên thông chỉ gồm mỗi x. Sau đó bỏ đỉnh x 
khỏi cây DFS, cây sẽ phân rã thành các cây con. 

Đỉnh r duyệt xong sau cùng chắc chắn là gốc của một cây con (bởi khi duyệt xong nó chắc chắn sẽ 
lùi về x) suy ra r là chốt. Hơn thế nữa, nếu một đỉnh u nào đó tới được r thì u cũng phải thuộc cây 
con gốc r. Bởi nếu giả sử phản chứng rằng u thuộc cây con khác thì u phải được thăm trước r (do 
cây con gốc r được thăm tới sau cùng), có nghĩa là khi Visit(u) thì r chưa thăm. Vậy nên r sẽ thuộc 
nhánh DFS gốc u, mâu thuẫn với lập luận r là gốc. Từ đó suy ra néu u tới được r thì r tới được u, tức 
là khi đảo chiều các cung, nếu r tới được đỉnh nào thì đỉnh đó thuộc thành phần liên thông chốt r. 
Loại bỏ thành phần liên thông với chốt r khỏi đồ thị. Cây con góc r lại phân rã thành nhiều cây con. 
Lập luận tương tự như trên với v' là đỉnh duyệt xong sau cùng (Hình 66). 

Ví dụ: 
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Hình 66: Đánh số lại, đảo chiều các cung và duyệt BES với cách chọn các đỉnh xuất phát ngược lại với thứ tự 
duyệt xong (thứ tự 11, 10... 3, 2, 1) 

Bài 2 

Thuật toán Warshall có thể áp dụng tìm bao đóng của đồ thị có hướng, vậy hãy kiểm tra tính liên 
thông mạnh của một đồ thị có hướng bằng hai cách: Dùng các thuật toán tìm kiếm trên đồ thị và 
thuật toán Warshall, sau đó so sánh ưu, nhược điểm của mỗi phương pháp 

Bài 3 

Trên mặt phăng với hệ toạ độ Decattes vuông góc cho n đường tròn, mỗi đường tròn xác định bởi 
bộ 3 số thực (X, Y, R) ở đây (X, Y) là toa độ tâm và R là bán kính. Hai đường tròn gọi là thông 
nhau nếu chúng có điểm chung. Hãy chia các đường tròn thành một số tối thiểu các nhóm sao cho 
hai đường tròn bất kỳ trong một nhóm bắt kỳ có thể đi được sang nhau sau một số hữu hạn các bước 


di chuyên giữa hai đường tròn thông nhau. 
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§5. VÀI ÚNG DỤNG CÚA CÁC THUẬT TOÁN TÌM KIÉM TRÊN ĐỎ THỊ 


5.1. XÂY DỰNG CÂY KHUNG CỦA ĐỎ THỊ 


Cây là đồ thị vô hướng, liên thông, không có chu trình đơn. Đồ thị vô hướng không có chu trình 
đơn gọi là rừng (hợp của nhiều cây). Như vậy mỗi thành phần liên thông của rừng là một cây. 

Khái niệm cây được sử dụng rộng rãi trong nhiều lĩnh vực khác nhau: Nghiên cứu cấu trúc các phân 
tử hữu cơ, xây dựng các thuật toán tổ chức thư mục, các thuật toán tìm kiếm, lưu trữ và nén dữ 


liệu... 


5.1.1. Định lý (Daisy Chain Theorem) 

Giá sử T = (V, E) là đồ thị vô hướng với n đỉnh. Khi đó các mệnh đề sau là tương đương: 

T là cây 

T không chứa chu trình đơn và có n - 1 cạnh 

T liên thông và mỗi cạnh của nó đều là cầu 

Giữa hai đỉnh bất kỳ của T đều tồn tại đúng một đường đi đơn 

T không chứa chu trình đơn nhưng hễ cứ thêm vào một cạnh ta thu được một chu trình đơn. 

T liên thông và có n - 1 cạnh 

Chứng minh: 

I=2: "T là cây" => "T không chứa chu trình đơn và có n - 1 cạnh" 

Từ T là cây, theo định nghĩa T không chứa chu trình đơn. Ta sẽ chứng minh cây T có n đỉnh thì 
phải có n - 1 cạnh bằng quy nạp theo số đỉnh n. Rõ ràng khi n = 1 thì cây có 1 đỉnh sẽ chứa 0 cạnh. 
Nếu n > 1 thì do đồ thị hữu hạn nên số các đường đi đơn trong T cũng hữu hạn, gọi P = (vị, V›,..., 
vu) là một đường đi dài nhất (qua nhiều cạnh nhất) trong T. Đỉnh vị không thể có cạnh nối với đỉnh 
nào trong số các đỉnh va, V4, ..., Vk. Bởi néu có cạnh (vị, Vp) 3 < p < k) thì ta sẽ thiết lập được chu 
trình đơn (vị, va, ..., Vp, vị). Mặt khác, đỉnh vị cũng không thể có cạnh nói với đỉnh nào khác ngoài 
các đỉnh trên P trên bởi nếu có cạnh (vị, Vo) (vo£P) thì ta thiết lập được đường dr (vo, VỊ, Va,..., Vk) 
dài hơn đường đi P. Vậy đỉnh vị chỉ có đúng một cạnh nối với vz hay vị là đỉnh treo. Loại bỏ vị và 
cạnh (vị, v2) khỏi T ta được đồ thị mới cũng là cây và có n - 1 đỉnh, cây này theo giả thiết quy nạp 
cón - 2 cạnh. Vậy cây T có n - 1 cạnh. 

2—=3: "T không chứa chu trình đơn và có n - 1 cạnh"—"T liên thông và mỗi cạnh của nó đều 
là cầu" 

Giả sử T có k thành phần liên thông Tı, T2, ..., Tự. Vì T không chứa chu trình đơn nên các thành 
phần liên thông của T cũng không chứa chu trình đơn, tức là các Tı, T2, ..., Tk đều là cây. GỌI nı, 


nạ, ..., Nk lân lượt là sô đỉnh của Tı, T2, ..., Tx thì cây Tı có nı - 1 cạnh, cây T2 có na - 1 cạnh..., cây 
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T có nụ - 1 cạnh. Cộng lại ta có só cạnh của T là nị + m +... + ng - k =n - k cạnh. Theo giả thiết, 
cây T cón - 1 cạnh, suy rak = 1, đồ thị chỉ có một thành phần liên thông là đồ thị liên thông. 

Bây giờ khi T đã liên thông, nếu bỏ đi một cạnh của T thì T sẽ còn n - 2 cạnh và sẽ không liên 
thông bởi nếu T vẫn liên thông thì do T không có chu trình nên T sẽ là cây và có n - 1 cạnh. Điều đó 
chứng tỏ mỗi cạnh của T đều là cầu. 

3—4: "T liên thông và mỗi cạnh của nó đều là cầu"—"Giữa hai đỉnh bất kỳ của T có đúng 
một đường đi đơn" 

Gọi x và y là 2 đỉnh bất kỳ trong T, vì T liên thông nên sẽ có một đường đi đơn từ x tới y. Nếu tồn 
tại một đường đi đơn khác từ x tới y thì nếu ta bỏ đi một cạnh (u, v) nằm trên đường đi thứ nhất 
nhưng không nằm trên đường đi thứ hai thì từ u vẫn có thê đến được v bằng cách: đi từ u đi theo 
chiều tới x theo các cạnh thuộc đường thứ nhất, sau đó đi từ x tới y theo đường thứ hai, rồi lại đi từ 
y tới v theo các cạnh thuộc đường đi thứ nhất. Điều này mâu thuẫn với giả thiết (u, v) là cầu. 

4—5: "Giữa hai đỉnh bất kỳ của T có đúng một đường đi đơn"—"T không chứa chu trình 
đơn nhưng hễ cứ thêm vào một cạnh ta thu được một chu trình đơn" 

Thứ nhất T không chứa chu trình đơn vì nếu T chứa chu trình đơn thì chu trình đó qua ít nhất hai 
đỉnh u, v. Rõ ràng dọc theo các cạnh trên chu trình đó thì từ u có hai đường đi đơn tới v. Vô lý. 
Giữa hai đỉnh u, v bất kỳ của T có một đường đi đơn nối u với v, vậy khi thêm cạnh (u, v) vào 
đường đi nảy thì sẽ tạo thành chu trình. 

56: "T không chứa chu trình đơn nhưng hễ cứ thêm vào một cạnh ta thu được một chu 
trình don"=>"T liên thông và có n - 1 cạnh" 

Gọi u và v là hai đỉnh bất kỳ trong T, thêm vào T một cạnh (u, v) nữa thì theo giả thiết sẽ tạo thành 
một chu trình chứa cạnh (u, v). Loại bỏ cạnh này đi thì phần còn lại của chu trình sẽ là một đường 
đi từ u tới v. Mọi cặp đỉnh của T đều có một đường đi nối chúng tức là T liên thông, theo giả thiết T 
không chứa chu trình đơn nên T là cây và có n - 1 cạnh. 

6=1: "T liên thông và có n - 1 cạnh"—'T là cây" 

Giả sử T không là cây thì T có chu trình, huỷ bỏ một cạnh trên chu trình này thì T vẫn liên thông, 
nếu đồ thị mới nhận được vẫn có chu trình thì lại huỷ một cạnh trong chu trình mới. Cứ như thế cho 
tới khi ta nhận được một đồ thị liên thông không có chu trình. Đồ thị này là cây nhưng lại có < n - 1 


cạnh (vô lý). Vậy T là cây 


5.1.2. Định nghĩa 


Giả sử G = (V, E) là đồ thị vô hướng. Cây T = (V, F) với FCE gọi là cây khung của đồ thị G. Tức là 
nếu như loại bỏ một số cạnh của G để được một cây thì cây đó gọi là cây khung (hay cây bao trùm 
của đồ thị). 


Dễ thấy rằng với một đồ thị vô hướng liên thông có thể có nhiều cây khung (Hình 67). 
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Hình 67: Đồ thi G và một số ví dụ cây khung T1, T2, T3 của nó 
Điều kiện cần và đủ để một đồ thị vô hướng có cây khung là đồ thị đó phải liên thông 


Số cây khung của đồ thị đầy đủ K, là n”™”. 


5.1.3. Thuật toán xây dựng cây khung 

Xét đồ thị vô hướng liên thông G = (V, E) có n đỉnh, có nhiều thuật toán xây dựng cây khung của G 
a) Xây dựng cây khung bằng thuật toán hợp nhất 

Trước hết, đặt T = (V, Ø); T không chứa cạnh nào thì có thể coi T gồm n cây ròi rạc, mỗi cây chỉ có 
1 đỉnh. Sau đó xét lần lượt các cạnh của G, nếu cạnh đang xét nối hai cây khác nhau trong T thì 
thêm cạnh đó vào T, đồng thời hợp nhất hai cây đó lại thành một cây. Cứ làm như vậy cho tới khi 
kết nạp đủ n - 1 cạnh vào T thì ta được T là cây khung của đồ thị. Các phương pháp kiểm tra cạnh 
có nối hai cây khác nhau hay không cũng như kỹ thuật hợp nhất hai cây sẽ được bàn kỹ hơn trong 
thuật toán Kruskal ở §9. 

b) Xây dựng cây khung bằng các thuật toán tìm kiếm trên đồ thị. 

Áp dụng thuật toán BFS hay DFS bắt đầu từ đỉnh S, tại mỗi bước từ đỉnh u tới thăm đỉnh v, ta thêm 
vào thao tác ghi nhận luôn cạnh (u, v) vào cây khung. Do đồ thị liên thông nên thuật toán sẽ xuất 
phát từ S và tới thăm tất cả các đỉnh còn lại, mỗi đỉnh đúng một lần, tức là quá trình duyệt sẽ ghi 
nhận được đúng n - 1 cạnh. Tất cả những cạnh đó không tạo thành chu trình đơn bởi thuật toán 
không thăm lại những đỉnh đã thăm. Theo mệnh đề tương đương thứ hai, ta có những cạnh ghi nhận 


được tạo thành một cây khung của đồ thị. 


a) b) 


Hình 68: Cây khung DFS (a) và cây khung BFS (b) (Mũi tên chỉ chiều đi thăm các đỉnh) 
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5.2. TẬP CÁC CHU TRÌNH CƠ BẢN CỦA ĐỎ THỊ 


Xét một đồ thị vô hướng liên thông G = (V, E); gọi T = (V, F) là một cây khung của nó. Các cạnh 

của cây khung được gọi là các cạnh trong, còn các cạnh khác là các cạnh ngoài. 

Nếu thêm một cạnh ngoài eeE \ F vào cây khung T, thì ta được đúng một chu trình đơn trong T, ký 

hiệu chu trình này là Ce. Tập các chu trình: 

Q= {C.| eeE\F} 

được gọi là tập các chu trình cơ sở của đồ thị G. 

Các tính chất quan trọng của tập các chu trình cơ sở: 

Tập các chu trình cơ sở là phụ thuộc vào cây khung, hai cây khung khác nhau có thể cho hai tập 

chu trình cơ sở khác nhau. 

Nếu đồ thị liên thông có n đỉnh và m cạnh, thì trong cây khung có n - 1 cạnh, còn lại m - n + 1 cạnh 

ngoài. Tương ứng với mỗi cạnh ngoài có một chu trình cơ sở, vậy số chu trình cơ sở của đồ thị 

liên thông là m - n + 1. 

1. Tập các chu trình cơ sở là tập nhiều nhất các chu trình thoả mãn: Mỗi chu trình có đúng một 
cạnh riêng, cạnh đó không nằm trong båt cứ một chu trình nào khác. Bởi nếu có một tập gồm t 
chu trình thoả mãn điều đó thì việc loại bỏ cạnh riêng của một chu trình sẽ không làm mất tính 
liên thông của đồ thị, đồng thời không ảnh hưởng tới sự tòn tại của các chu trình khác. Như vậy 
nếu loại bỏ tất cả các cạnh riêng thì đồ thị vẫn liên thông và còn m - t cạnh. Đồ thị liên thông thì 
không thê có ít hơn n - 1 cạnh nên ta có m -t>n- 1 hayt<m-n+ I. 

Mọi cạnh trong một chu trình đơn bắt kỳ đều phải thuộc một chu trình cơ sở. Bởi nếu có một 

cạnh (u, v) không thuộc một chu trình cơ sở nảo, thì khi ta bỏ cạnh đó đi đồ thị vẫn liên thông và 

không ảnh hưởng tới sự tồn tại của các chu trình cơ sở. Lại bỏ tiếp những cạnh ngoài của các chu 
trình cơ sở thì đồ thị vẫn liên thông và còn lại m - (m - n+ 1) - 1 =n - 2 cạnh. Điều này vô lý. 

Đối với đồ thị G = (V, E) có n đỉnh và m cạnh, có k thành phần liên thông, ta có thể xét các thành 

phần liên thông và xét rừng các cây khung của các thành phần đó. Khi đó có thể mở rộng khái niệm 

tập các chu trình cơ sở cho đồ thị vô hướng tổng quát: Mỗi khi thêm một cạnh không nằm trong các 
cây khung vào rừng, ta được đúng một chu trình đơn, tập các chu trình đơn tạo thành bằng cách 
ghép các cạnh ngoài như vậy gọi là tập các chu trình cơ sở của đồ thị G. Số các chu trình cơ sở là 

m-n + k. 

5.3. ĐỊNH CHIÊU ĐỎ THỊ VÀ BÀI TOÁN LIỆT KÊ CÂU 

Bài toán đặt ra là cho một đồ thị vô hướng liên thông G = (V, E), hãy thay mỗi cạnh của đồ thị bằng 

một cung định hướng để được một đồ thị có hướng liên thông mạnh. Nếu có phương án định chiều 

như vậy thì G được gọi là đồ thị định chiều được. Bài toán định chiều đồ thị có ứng dụng rõ nhất 


trong sơ đồ giao thông đường bộ. Chăng hạn như trả lời câu hỏi: Trong một hệ thống đường phó, 
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liệu có thể quy định các đường phố đó thành đường một chiều mà vẫn đảm bảo sự đi lại giữa hai 


nút giao thông bắt kỳ hay không. 


5.3.1. Phép định chiều DFS 
Xét mô hình duyệt đồ thị bằng thuật toán tìm kiếm theo chiều sâu bắt đầu từ đỉnh 1. Vì đồ thị là vô 
hướng liên thông nên quá trình tìm kiếm sẽ thăm được hết các đỉnh. 
procedure Visit(u e V); 
begin 
<Thông báo thăm u và đánh dấu u đã thăm>; 
for (Vv: (u, v) €e E) do 


if <v chưa thăm> then Visit(v); 
end; 


begin 
<Đánh dấu mọi đỉnh đều chưa thăm>; 
Visit(1); 
end; 
Coi một cạnh của đô thị tương đương với hai cung có hướng ngược chiêu nhau. Thuật toán tìm 


kiếm theo chiều sâu theo mô hình trên sẽ duyệt qua hết các đỉnh của đồ thị và tất cả các cung nữa. 
Quá trình duyệt cho ta một cây tìm kiếm DFS. Ta có các nhận xét sau: 

Nhận xét 1: 

Quá trình duyệt sẽ không có cung chéo (cung đi từ một nhánh DES thăm sau tới nhánh DES thăm 
trước). Thật vậy, nếu quá trình duyệt xét tới một cung (u, v): 

Nếu u thăm trước v có nghĩa là khi Visit(u) được gọi thì v chưa thăm, vì thủ tục Visit(u) sẽ xây 
dựng nhánh DFS gốc u gồm những đỉnh chưa thăm đến được từ u, suy ra v nằm trong nhánh DFS 
gốc u > v là hậu duệ của u, hay (u, v) là cung DFS hoặc cung xuôi. 

Nếu u thăm sau v (v thăm trước u), tương tự trên, ta suy ra u nằm trong nhánh DFS gốc v, v là tiền 
bối của u — (u, v) là cung ngược. 

Nhận xét 2: 

Trong quá trình duyệt đồ thị theo chiều sâu, nếu cứ duyệt qua cung (u, v) nào thì ta bỏ đi cung (v, u). 
(Tức là hễ duyệt qua cung (u, v) thì ta định chiều luôn cạnh (u, v) theo chiều từ u tới v), ta được một 


phép định chiều đồ thị gọi là phép định chiều DFS. 
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Hình 69: Phép định chiều DFS 


Nhận xét 3: 

Với phép định chiều như trên, thì sẽ chỉ còn các cung trên cây DFS và cung ngược, không còn lại 
cung xuôi. Bởi trên đồ thị vô hướng ban đầu, nếu ta coi một cạnh là hai cung có hướng ngược chiều 
nhau thì với một cung xuôi ta có cung ngược chiều với nó là cung ngược. Do tính chất DFS, cung 
ngược được duyệt trước cung xuôi tương ứng, nên khi định chiều cạnh theo cung ngược thì cung 
xuôi sẽ bị huỷ và không bị xét tới nữa. 

Nhận xét 4: 

Trong đồ thị vô hướng ban đầu, cạnh bị định hướng thành cung ngược chính là cạnh ngoài của cây 
khung DFS. Chính vì vậy, mọi chu trình cơ sở trong đồ thị vô hướng ban đầu vẫn sẽ là chu 
trình trong đồ thị có hướng tạo ra. (Đây là một phương pháp hiệu quả để liệt kê các chu trình cơ sở 
của cây khung DFS: Vừa duyệt DFS vừa định chiều, nếu duyệt phải cung ngược (u, v) thì truy vết 
đường đi của DFS để tìm đường từ v đến u, sau đó nối thêm cung ngược (u, v) để được một chu 
trình cơ sở). 

Định lý: Điều kiện cần và đủ để một đô thị vô hướng liên thông có thể định chiều được là mỗi 
cạnh của đồ thị nằm trên ít nhất một chu trình đơn (Hay nói cách khác mọi cạnh của đồ thị đều 
không phải là cầu). 

Chứng minh: 

Gọi G = (V, E) là một đồ thị vô hướng liên thông. 

UE 

Nếu G là định chiều được thì sau khi định hướng sẽ được đồ thị liên thông mạnh G'. Với một cạnh 
được định chiều thành cung (u, v) thì sẽ tồn tại một đường đi đơn trong Œ' theo các cạnh định 
hướng từ v về u. Đường đi đó nối thêm cung (u, v) sẽ thành một chu trình đơn có hướng trong G'. 
Tức là trên đồ thị ban đầu, cạnh (u, v) nằm trên một chu trình đơn. 


HH 
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Nếu mỗi cạnh của G đều nằm trên một chu trình đơn, ta sẽ chứng minh rằng: phép định chiều DFS 
sẽ tạo ra đồ thị G' liên thông mạnh. 

Trước hết ta chứng minh rằng nếu (u, v) là cạnh của G thì sẽ có một đường đi từ u tới v trong G'. 
Thật vậy, vì (u, v) nằm trong một chu trình đơn, mà mọi cạnh của một chu trình đơn đều phải thuộc 
một chu trình cơ sở nào đó, nên sẽ có một chu trình cơ sở chứa cả u và v. Chu trình cơ sở qua phép 
định chiều DES vẫn là chu trình trong G' nên đi theo các cạnh định hướng của chu trình đó, ta có thể 
đi từ u tới v và ngược lại. 

Nếu u và v là 2 đỉnh bất kỳ của G thì do G liên thông, tồn tại một đường ği (u=x%ọ, X1, ..., Xạ=V). Vì 
(Xi, x¡ + ¡) là cạnh của G nên trong G', từ x; có thể đến được x¡:¡. Suy ra từ u cũng có thê đến được v 


bằng các cạnh định hướng của G'. 


5.3.2. Cài đặt 
Với những kết quả đã chứng minh trên, ta còn suy ra được: Nếu đồ thị liên thông và mỗi cạnh của 
nó năm trên ít nhất một chu trình đơn thì phép định chiều DES sẽ cho một đồ thị liên thông mạnh. 
Còn nếu không, thì phép định chiều DFS sẽ cho một đồ thị định hướng có ít thành phần liên thông 
mạnh nhất, một cạnh không nằm trên một chu trình đơn nào (cầu) của đồ thị ban đầu sẽ được định 
hướng thành cung nối giữa hai thành phần liên thông mạnh. 
Ta sẽ cài đặt một thuật toán với một đồ thị vô hướng: liệt kê các cầu và định chiều các cạnh để 
được một đồ thị mới có ít thành phân liên thông mạnh nhất: 
Đánh số các đỉnh theo thứ tự thăm DFS, gọi Numbering[{u] là số thứ tự của đỉnh u theo cách đánh 
số đó. Trong quá trình tìm kiếm DES, duyệt qua cạnh nào định chiều luôn cạnh đó. Định nghĩa 
thêm Low{u] là giá trị Numbering nhỏ nhất của những đỉnh đến được từ nhánh DFS gốc u bằng một 
cung ngược. Tức là nếu nhánh DES gốc u có nhiều cung ngược hướng lên trên phía gốc cây thì ta 
ghi nhận lại cung ngược hướng lên cao nhất. Nếu nhánh DFS gốc u không chứa cung ngược thì ta 
cho Low[u] = +œ. Cụ thể cách cực tiểu hoá Low[u] như sau: 
Trong thủ tục Visit(u), trước hết ta đánh số thứ tự thăm cho đỉnh u (Numbering[u]) và khởi gán 
Low[{u] = +o. 
Sau đó, xét tất cả những đỉnh v kè u, định chiều canh (u, v) thành cung (u, v). Có hai khả năng xảy 
ra: 
v chưa thăm thì ta gọi Visit(v) để thăm v và cực tiêu hoá Lowf[u] theo công thức: 

Lowf{u] := min(Low[{ul]ca, Low[v]) 
v đã thăm thì ta cực tiểu hoá Low[u] theo công thức: 


Low[{u] := min(Low[{u]c¡, Numbering[v |) 
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Dễ thấy cách tính như vậy là đúng đắn bởi nếu v chưa thăm thì nhánh DFS gốc v nằm trong nhánh 
DFS gốc u và những cung ngược trong nhánh DFS gốc v cũng là cung ngược trong nhánh DFS gốc u. 


Còn nếu v đã thăm thì (u, v) sẽ là cung ngược. 


Đồ thị vô hướng Đồ thị định chiều 
Giá trị Numbering[.] ghi trong vòng tròn 
Giá trị Low[.] ghi bên cạnh 


Hình 70: Phép đánh số và ghi nhận cung ngược lên cao nhất 


Nếu từ đỉnh u tới thăm đỉnh v, (u, v) là cung DFS. Khi đỉnh v được duyệt xong, lùi về thủ tục 
Visit(u), ta so sánh Low[v] và Numbering[u]. Nếu Low[v] > Numbering[u] thì tức là nhánh DFS 
gốc v không có cung ngược thoát lên phía trên v. Tức là cạnh (u, v) không thuộc một chu trình cơ 
sở nào cả, tức cạnh đó là cầu. 


(Đề thị G = (V, E)) 
procedure Visit (ueŸ) ; 
begin 
<Đánh số thứ tự thăm cho đỉnh u (Numbering[u]); Khởi gán Low[u] := †œ>; 
for (Vv: (u, v)eE) do 
begin 
<Định chiều canh (u, v) thành cung (u, v) & Loại bỏ cung (v, u)>; 
if <v chưa thăm> then 
begin 
Visit(v); 
if Low[v] > Numbering[u] then <In ra cầu (u, v)>; 
Low[u] := Min(Low[u], Low[v]); (Cục tiểu hoá Low[u] theo Low[v]} 
end 
else {v đã thăm) 
Low[u] := Min(Low[u], Numbering[v]); (Cục tiểu hoá Low[u] theo Numbering [v] } 
end; 
end; 


begin 
for (VueV) do 
if <u chưa thăm> then Visit(u) ; 


<In ra cách định chiều>; 
end. 


Input: file văn bản GRAPH.INP 
e Dòng 1 ghi số đỉnh n (n < 100) và số cạnh m của đồ thị cách nhau ít nhất một dấu cách 
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e m dòng tiếp theo, mỗi dòng ghi hai số nguyên dương u, v cách nhau ít nhất một dấu cách, 


cho biêt đô thị có cạnh nôi đỉnh u với đỉnh v 


Output: file văn bản BRIDGES.OUT 


Thông báo các cầu và phép định chiều có ít thành phần liên thông mạnh nhất 


program Directivity and Bridges; 


const 
TnputFile = 'GRAPH.INP'; 
OutputFile = 'BRIDGES.OUT'; 
max = 100; 

var 


a: array[1..max, 1..max] of Boolean; {Ma trận kè của đổ thị) 
Numbering, Low: array[1..max] of Integer; 

n, Count: Integer; 

fo: Text; 


procedure Enter; 
var 
f: Text; 
i, m, u, v: Integer; 
begin 
FillChar(a, Size0f (a), False); 
Assign(f, InputFile); Reset(f) ; 
Readln (f, n, m); 
for i := 1 to m do 
begin 
Readln (f, u, v); 
a[u, v] := True; 
a[v, u] := True; 
end; 
Close (£) ; 
end; 


procedure Init; 


GRAPH . INP 


BRIDGES. OUT 


11 14 


1 
2 
2 
4 
4 
4 
5 
5 
6 
7 
7 
8 
1 


Bridges: 

(5, 4) 

(2, 5) 
Directed Edges: 
1 ->2 


begin 
FillChar (Numbering, SizeOf (Numbering), 0); (Numbering[u] = 0 © u chưa thăm) 
Count := 0; 

end; 
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procedure Visit(u: Integer); 
var 
v: Integer; 
begin 
Inc (Count) ; 
Numbering[u] := Count; (Đánh số thứ tụ thăm cho đỉnh u, u trở thành đã thăm} 
1ow[u] := n + 1; {Khói gán Lou[u] bằng một giá trị đủ lớn hơn tất cả Numbering} 
for v := 1 to n do 
if a[u, v] then (Xét mọi đỉnh v kè u} 
begin 
a[v, u] := False; {Định chiều cạnh (u, v) thành cung (u, v)) 
if Numbering[v] = 0 then {Nêu v chưa thăm) 
begin 
Visit(v); {Đi thăm v} 
if Low[v] > Numbering[u] then {(u, v) là cầu) 
WriteLn(fo, '(', u," ',v, ')'); 
if Low[u] > Low[v] then Low[u] := Low[v]; {Cyc tiểu hoá Low[u] } 
end 
else 
if Low[u] > Numbering[v] then Low[u] := Numbering[v]; (Cục tiểu hoá Low[u] } 
end; 
end; 


procedure Solve; 
var 
u, v: Integer; 
begin 
WriteLn(fo, 'Bridges: '); {Dùng DFS để định chiều đồ thị và liệt kê càu} 
for u := 1 to n do 
if Numbering[u] = 0 then Visit (u); 
WriteLn(fo, 'Directed Edges: '); {Quét lại ma trận kè để in ra các cạnh định hướng] 
for u := 1 to n do 
for v := 1 to n do 
if a[u, v] then Writeln(fo, u, ' -> ', v); 
end; 
begin 
Enter; 
Assign (fo, OutputFile); Rewrite (fo) ; 
Init; 
Solve; 
Close (fo) ; 
end. 


5.4. LIÊT KÊ KHÓP 


Trong đồ thị vô hướng, Một đỉnh C được gọi là khớp, nếu như ta bỏ đi đỉnh C và các cạnh liên 
thuộc với nó thì sẽ làm tăng số thành phần liên thông của đồ thị. Bài toán đặt ra là phải liệt kê hết 
các khớp của đồ thị. 

Rõ ràng theo cách định nghĩa trên, các đỉnh treo và đỉnh cô lập sẽ không phải là khớp. Đồ thị liên 
thông có > 3 đỉnh, không có khớp (cho đù bỏ đi đỉnh nào đồ thị vẫn liên thông) được gọi là đồ thị 
song liên thông. Giữa hai đỉnh phân biệt của đồ thị song liên thông, tồn tại ít nhất 2 đường đi không 
có đỉnh trung gian nào chung. 

Coi mỗi cạnh của đồ thị ban đầu là hai cung có hướng ngược chiều nhau và dùng phép duyệt đồ thị 


theo chiêu sâu: 


(Bề thị G = (V, E)) 
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procedure Visit(u e V): e V; 
begin 
<Thông báo thăm u và đánh dấu u đã thăm>; 
for (Vv: (u, v) e E) do 
if <v chưa thăm> then Visit(v) ; 
end; 


begin 
<Đánh dâu mọi đỉnh dën chưa thăm>; 
for (VueV) do 


if <u chưa thăm> then Visit(u) ; 
end; 


Quá trình duyệt cho một rừng các cây DES Các cung duyệt qua có ba loại: cung DES, cung ngược 


và cung xuôi, đê không bị rôi hình, ta chỉ ưu tiên vẽ cung DFS hoặc cung ngược: 


Hình 71 Duyệt DFS, xác định cây DFS và các cung ngược 
Hãy đề ý nhánh DFS gốc ở đỉnh r nào đó 
Nếu mọi nhánh con của nhánh DES gốc r đều có một cung ngược lên tới một tiền bối của r thì r 
không là khớp. Bởi nếu trong đồ thị ban đầu, ta bỏ r đi thì từ mỗi đỉnh bất kỳ của nhánh con, ta vẫn 
có thê đi lên một tiền bối của r, rồi đi sang nhánh con khác hoặc đi sang tất cả những đỉnh còn lại 
của cây. Số thành phần liên thông của đồ thị không thay đổi. 
Nếu r không phải là gốc của một cây DFS, và tồn tại một nhánh con của nhánh DFS gốc r không có 
cung ngược lên một tiền bối của r thì r là khớp. Bởi khi đó, tất cả những cung xuất phát từ nhánh 
con đó chỉ đi tới những đỉnh nội bộ trong nhánh DES gốc r mà thôi, trên đồ thị ban đầu, không tồn 
tại cạnh nối từ những đỉnh thuộc nhánh con tới một tiền bối của r. Vậy từ nhánh đó muốn đi lên một 
tiền bối của r, tất phải đi qua r. Huy r khỏi đồ thị sẽ làm mất tất cả các đường đi đó, tức là làm tăng 
số thành phần liên thông của đồ thị. 
Nếu r là gốc của một cây DFS, thì r là khớp khi và chỉ khi r có ít nhất hai nhánh con. Bởi khi r có 2 
nhánh con thì đường đi giữa hai đỉnh thuộc hai nhánh con đó tất phải đi qua r. 
Vậy thì thuật toán liệt kê khóp lại là những kỹ thuật quen thuộc, duyệt DFS, đánh số, ghi nhận 
cạnh ngược lên cao nhất từ một nhánh con, chỉ thêm vào đó một thao tác nhỏ: Nếu từ đỉnh u gọi 
đệ quy thăm đỉnh v ((u, v) là cung DFS) thì sau khi duyệt xong đỉnh v, lùi về thủ tục Visit(u), ta 
so sánh Lowf[v] và Numbering[u] để kiểm tra xem từ nhánh con sốc y có cạnh ngược nào lên 


tiền bối của u hay không, néu không có thì tạm thời đánh dấu u là khớp. Cuối cùng phải kiểm 
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tra lại điều kiện: nếu u là gốc cây DFS thì nó là khóp khi và chỉ khi nó có ít nhất 2 nhánh con, 
nếu không thoả mãn điều kiện đó thì đánh dấu lại u không là khóp. 

Input: file văn bản GRAPH.INP với khuôn dạng như bài toán liệt kê cầu 

Output: file văn bản CUTV.OUT ghi các khớp của đồ thị 


GRAPH. INP || CUTV.OUT 


13 15 Cut vertices: 
1 2,3,4, 5, 9, 


CO On Ln CI vs vs GA GA h2 h2 
ƑT ẨM E Se c3 sr tội E đVo 


CO 
KA 
FA kä 


program CutVertices; 
const 
TnputFile = 'GRAPH.INP'; 
OutputFile = 'CUTV.0UT'; 
max = 100; 
var 
a: array[l..max, 1..max] of Boolean; {Ma trận kể của đổ thị) 
Numbering, Low, nC: array[l..max] of Integer; {nC[u]: Số nhánh con của nhánh DFS gốc u} 
Mark: array[l..max] of Boolean; (Mark[u] = True © u là khóp} 
n, Count: Integer; 


procedure LoadGraph; 
var 
i, m, u, v: Integer; 
f: Text; 
begin 
Assign(f, InputFile); Reset(f) ; 
FillChar(a, Size0f (a), False); 
Readln (f, n, m); 
for i := 1 to m do 
begin 
Readln (f, u, v); 
a[u, v] := True; a[V, u] := True; 
end; 
Close (£) ; 
end; 


procedure Visit(u: Integer); (Tìm kiếm theo chiều sâu bắt đầu từ u} 
var 

v: Integer; 
begin 

Inc (Count) ; 

Numbering[u] := Count; Iow[u] := n + 1; nC[u] := 0; 

Mark[u] := False; 

for v := 1 to n do 

if a[u, v] then (Xét mọi v kè u} 
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if Numbering[v] = 0 then {Nếu v chưa thăm) 

begin 
Inc(nc[u]); {Tăng biến đếm số con của u lên 1) 

Visit(v); (Thăm v} 

{Nếu nhánh DFS gốc v không có cung ngược lên một tiển bối của u tức là Low[v] > Numbering([u]) 
Mark[u] := Mark[u] or (Low[v] >= Numbering[u]); (Tạm đánh dấu u là khớp) 
if Low[u] > Low[v] then Low[u] := Iow[v]; (Cực tiểu hoá Low[u] } 

end 

else 
if 1ow[u] > Numbering[v] then Low[u] := Numbering[v]; (Cục tiểu hoá Low([u] } 
end; 


procedure Solve; 
var 
u: Integer; 
begin 
FillChar (Numbering, $ize0f (Numbering), 0); (Đánh số = 0 & Đỉnh chưa thăm) 
Fi11Char (Mark, SizeOf(Mark), False); (Mảng đánh dấu khớp chưa có gì) 
Count := 0; 
for u := 1 to n do 
if Numbering[u] = 0 then {Xét mọi đỉnh u chưa thăm) 
begin 
Visit(u); (Thăm u, xây dựng cây DFS gốc u} 
if nC[u] < 2 then {Néu u có ít hon 2 con} 
Mark[u] := False; (Thì u không phải là khóp} 
end; 
end; 


procedure Result; {Dya vào mảng đánh dáu để liệt kê các khóp} 
var 
i: Integer; 
f: Text; 
begin 
Assign(f, OutputFile); Rewrite (f); 
Writeln(f, 'Cut vertices:') ; 
for i := 1 to n do 
if Mark[i] then Write(f, i, ', '); 
Close (£) ; 
end; 


begin 
1oadGraph; 
Solve; 
Result; 
end. 
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$6. CHU TRÌNH EULER, ĐƯỜNG ĐI EULER, ĐỎ THỊ EULER 


6.1. BÀI TOÁN 7 CÁI CÂU 


Thành phố Konigsberg thuộc Phổ (nay là Kaliningrad thuộc Cộng hoà Nga), được chia làm 4 vùng 
bằng các nhánh sông Pregel. Các vùng này gồm 2 vùng bên bờ sông (B, C), đảo Kneiphof (A) và 
một miền nằm giữa hai nhánh sông Pregel (D). Vào thế kỷ XVIII, người ta đã xây 7 chiếc cầu nối 
những vùng này với nhau. Người dân ở đây tự hỏi: Liệu có cách nào xuất phát tại một địa điểm 
trong thành phó, đi qua 7 chiếc cầu, mỗi chiếc đúng 1 lần rồi quay trở về nơi xuất phát không ? 

Nhà toán học Thụy sĩ Leonhard Euler đã giải bài toán này và có thể coi đây là ứng dụng đầu tiên 
của Lý thuyết dé thị, ông đã mô hình hoá sơ đồ 7 cái cầu bằng một đa đồ thị, bốn vùng được biểu 
diễn bằng 4 đỉnh, các cầu là các cạnh. Bài toán tìm đường qua 7 cầu, mỗi cầu đúng một lần có thể 


tổng quát hoá bằng bài toán: Có tồn tại chu trình đơn trong đa đồ thị chứa tất cả các cạnh ?. 


Hình 72: Mô hình đồ thị của bài toán bảy cái cầu 
6.2. ĐỊNH NGHĨA 


Chu trình đơn chứa tất cả các cạnh của đồ thị được gọi là chu trình Euler 

Đường đi đơn chứa tất cả các cạnh của đồ thị được gọi là đường đi Euler 

Một đồ thị có chu trình Euler được gọi là đồ thị Euler 

Một đồ thị có đường đi Euler được gọi là đồ thị nửa Euler. 

Rõ ràng một đồ thị Euler thì phải là nửa Euler nhưng điều ngược lại thì không phải luôn đúng 

6.3. ĐỊNH LÝ 

Một đồ thị vô hướng liên thông G = (V, E) có chu trình Euler khi và chỉ khi mọi đỉnh của nó đều 
có bậc chän: deg(v) = 0 (mod 2) (Yve V) 

Một đồ thị vô hướng liên thông có đường đi Euler nhưng không có chu trình Euler khi và chỉ 
khi nó có đúng 2 đỉnh bậc lẻ 

Một đồ thi có hướng liên thông yếu G = (V, E) có chu trình Euler thì mọi đỉnh của nó có bán bậc 
ra bằng bán bậc vào: deg+(v) = deg-(v) (Yve V); Ngược lại, nếu G liên thông yếu và mọi đỉnh của 


nó có bán bậc ra bằng bán bậc vào thì G có chu trình Euler, hay G sẽ là liên thông mạnh. 


Đại học Sw phạm Hà Nội, 1999-2002 


Các thuật toán trên đồ thị & 210 ~% 


Một đồ thị có hướng liên thông yếu G = (V, E) có đường đi Euler nhưng không có chu trình 
Euler nếu tòn tại đúng hai đỉnh u, v € V sao cho deg+(u) - deg-(u) = deg-(v) - deg+(v) = 1, còn tất 


cả những đỉnh khác u và v đêu có bán bậc ra băng bán bậc vảo. 


6.4. THUẬT TOÁN FLEURY TÌM CHU TRÌNH EULER 


6.4.1. Đối với đồ thị vô hướng liên thông, mọi đỉnh đều có bậc chẵn. 

Xuất phát từ một đỉnh, ta chọn một cạnh liên thuộc với nó để đi tiếp theo hai nguyên tắc sau: 

Xoá bỏ cạnh đã đi qua 

Chỉ đi qua cầu khi không còn cạnh nào khác dë chọn 

Và ta cứ chọn cạnh đi một cách thoải mái như vậy cho tới khi không đi tiếp được nữa, đường đi tìm 
được là chu trình Euler. 

Ví dụ: Với đồ thị ở Hình 73: 


Hình 73 
Nếu xuất phát từ đỉnh 1, có hai cách đi tiếp: hoặc sang 2 hoặc sang 3, giả sử ta sẽ sang 2 và xoá 
cạnh (1, 2) vừa đi qua. Từ 2 chỉ có cách duy nhất là sang 4, nên cho dù (2, 4) là cầu ta cũng phải đi 
sau đó xoá luôn cạnh (2, 4). Đến đây, các cạnh còn lại của đồ thị có thể vẽ như Hình 74 bằng nét 


liên, các cạnh đã bị xoá được vẽ băng nét đứt. 


Hình 74 


Bây giờ đang đứng ở đỉnh 4 thì ta có 3 cách đi tiếp: sang 3, sang 5 hoặc sang 6. Vì (4, 3) là cầu nên 
ta sẽ không đi theo cạnh (4, 3) mà sẽ đi (4, 5) hoặc (4, 6). Nếu đi theo (4, 5) và cứ tiếp tục đi như 
vậy, ta sẽ được chu trình Euler là (1, 2, 4, 5, 7, 8, 6, 4, 3, 1). Còn đi theo (4, 6) sẽ tìm được chu trình 
Euler là: (1, 2, 4, 6, 8, 7, 5, 4, 3, 1). 
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6.4.2. Đối với đồ thị có hướng liên thông yếu, mọi đỉnh đều có bán bậc ra bằng bán bậc 
vao. 


Bằng cách "lạm dụng thuật ngữ”, ta có thể mô tả được thuật toán tìm chu trình Euler cho cả đồ thị 
có hướng cũng như vô hướng: 

Thứ nhất, dưới đây nếu ta nói cạnh (u, v) thì hiểu là cạnh nối đỉnh u và đỉnh v trên đồ thị vô hướng, 
hiểu là cung nối từ đỉnh u tới đỉnh v trên đồ thị có hướng. 

Thứ hai, ta gọi cạnh (u, v) là "một đi không trở lại" nếu như từ u ta đi tới v theo cạnh đó, sau đó xoá 
cạnh đó đi thì không có cách nào từ v quay lại u. 

Vậy thì thuật toán Fleury tìm chu trình Euler có thể mô tả như sau: 

Xuất phát từ một đỉnh, ta đi một cách tuỳ ý theo các cạnh tuân theo hai nguyên tắc: Xoá bỏ cạnh 


vừa đi qua và chỉ chọn cạnh "một đi không trở lại" nếu như không còn cạnh nào khác để chọn. 
6.5. CÀI ĐẶT 


Ta sẽ cài đặt thuật toán Fleury trên một đa đồ thị vô hướng. Đề đơn giản, ta coi đồ thị này đã có chu 
trình Euler, công việc của ta là tìm ra chu trình đó thôi. Bởi việc kiểm tra tính liên thông cũng như 
kiểm tra mọi đỉnh đều có bậc chăn đến giờ có thể coi là chuyện nhỏ. 
Input: file văn bản EULER.INP 

e Dòng 1: Chúa số đỉnh n của đồ thị (n < 100) 

e Các dòng tiếp theo, mỗi dòng chứa 3 số nguyên dương cách nhau ít nhất 1 dấu cách có dạng: 

u v k cho biết giữa đỉnh u và đỉnh v có k cạnh nối 

Output: file văn bản EULER.OUT, ghi chu trình EULER 


EULER.INP | EULER. OUT 
5 1231341 


program Euler Circuit; 

const 
InputFile = 'EULER.INP'; 
OutputFile = 'EULER.OUT' ; 
max = 100; 

var 
a: array[1..max, 1..max] of Integer; 
n: Integer; 


procedure Enter; 

var 
u, v, k: Integer; 
f: Text; 

begin 
Assign(f, InputFile); Reset(f) ; 
FillChar(a, Size0f (a), 0); 
ReadIn (f, n); 
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while not SeekEof (f) do 
begin 
Readln (f, u, v, k); 
a[u, v] zk: 
a[v, u] := k; 
end; 
Close (f); 
end; 


{Thủ tục này kiểm tra néu xoá một cạnh nối (x, y) thì y có còn quay lại được x hay không} 
function CanGoBack (x, y: Integer): Boolean; 
var 
Queue: array[1..max] of Integer; {Hàng đợi dùng cho Breadth First Search} 
First, Last: Integer; {First: Chỉ số đầu hàng đợi, Last: Chỉ số cuối hàng đợi} 
u, V: Integer; 
Free: array[l..max] of Boolean; {Mảng đánh dấu} 
begin 
Dec(a[x, y]); Dec(a[y, x]); (Thử xoá một cạnh (x, y) © Số cạnh nối (x, y) giảm 1} 
Fi11Char (Free, n, True); (sau đó áp dụng BFS để xem từ y có quay lại x được không 2 
Free[y] := False; 
First := 1; last := 1; 
Queue[1] := y; 
repeat 
u := Queue[First]; Inc(First); 
for v := 1 to n do 
if Free[v] and (a[u, v] > 0) then 
begin 
Inc (Last) ; 
Queue[last] := v; 
Free[v] := False; 
if Free[x] then Break; 
end; 
until First > Last; 
CanGoBack := not Free[x] ; 
Ine(a[x, y]); Ine(a[y, x]); {ở trên đã thử xoá cạnh thì giờ phải phục hồi} 
end; 


procedure FindEulerCircuit; (Thuật toán Fleury} 
var 

Current, Next, v, count: Integer; 

f: Text; 
begin 

Assign(f, OutputFile); Rewrite (f); 

Current := 1; 

Write(f, 1, ' '); {Bắt đầu tù dinh Current = 1} 


count := 1; 
repeat 
Next := 0; 


for v := 1 to n do 
if a[Current, v] > 0 then 


begin 
Next := v; 
if CanGoBack (Current, Next) then Break; 
end; 
if Next <> 0 then 
begin 


Dec(a[Current, Next] ); 
Dec(a[Next, Current]); {Xoá bỏ cạnh vừa đi qua} 
Write(f, Next, ' '); (In kết quả đi tới Next} 
Inc (count) ; 
if count mod 16 = 0 then WriteLn; {In ra tối đa 16 đỉnh trên một dòng) 
Current := Next; (Lại tiếp tục với đỉnh đang đúng là Next) 
end; 
until Next = 0; {Cho tới khi không đi tiếp được nữa} 
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Close (£) ; 
end; 


begin 
Enter; 
FindEulerCircuit; 
end. 


6.6. THUẬT TOÁN TÓT HON 


Trong trường hợp đồ thị Euler có số cạnh đủ nhỏ, ta có thể sử dụng phương pháp sau để tìm chu 
trình Euler trong đồ thị vô hướng: Bắt đầu từ một chu trình đơn C bất kỳ, chu trình này tìm được 
bằng cách xuất phát từ một đỉnh, đi tuỳ ý theo các cạnh cho tới khi quay về đỉnh xuất phát, lưu ý là 
đi qua cạnh nào xoá luôn cạnh đó. Nếu như chu trình C tìm được chứa tất cả các cạnh của đồ thị thì 
đó là chu trình Euler. Nếu không, xét các đỉnh dọc theo chu trình C, nếu còn có cạnh chưa xoá liên 
thuộc với một đỉnh u nào đó thì lại từ u, ta đi tuỳ ý theo các cạnh cũng theo nguyên tắc trên cho tới 
khi quay trở về u, để được một chu trình đơn khác qua u. Loại bỏ vị trí u khỏi chu trình C và chèn 
vào C chu trình mới tìm được tại đúng vi trí của u vừa xoá, ta được một chu trình đơn C' mới lớn 
hơn chu trình C. Cứ làm như vậy cho tới khi được chu trình Euler. Việc chứng minh tính đúng đắn 
của thuật toán cũng là chứng minh định lý về điều kiện cần và đủ để một đồ thị vô hướng liên thông 
có chu trình Euler. 


Mô hình thuật toán có thê viết như sau: 


<Khởi tạo một ngăn xếp Stack ban đầu chỉ gồm mỗi đỉnh 1>; 
<Mô tả các phương thức Push (đây vào) và Pop(lây ra) một đỉnh từ ngăn xếp Stack, phương thức Get cho biết phấn tử nằm ở 
đỉnh Stack. Khác với Pop, phương thức Get chỉ cho biết phần tử ở đỉnh Stack chứ không lấy phần tử đó ra>; 
while Stack zØ do 
begin 
x := Get: 
if <Tòn tại đỉnh y mà (x, y) eE> then {Từ x còn đi hướng khác được} 
begin 
Push (y) ; 
<Loại bô canh (x, y) khỏi đồ thi>; 
end 
else {Tù x không đi tiếp được tới đâu nữa} 
begin 
x := Pop; 
<In ra dinh x trên duòng di Euler>; 
end; 
end; 


Thuật toán trên có thể dùng đề tìm chu trình Euler trong đồ thị có hướng liên thông yếu, mọi đỉnh 
có bán bậc ra bằng bán bậc vào. Tuy nhiên thứ tự các đỉnh in ra bị ngược so với các cung định 
hướng, ta có thể đảo ngược hướng các cung trước khi thực hiện thuật toán để được thứ tự đúng. 

Thuật toán hoạt động với hiệu quả cao, dễ cài đặt, nhưng trường hợp xấu nhất thì Stack sẽ phải chứa 
toàn bộ danh sách đỉnh trên chu trình Euler chính vì vậy mà khi đa đồ thị có số cạnh quá lớn thì sẽ 
không đủ không gian nhớ mô tả Stack (Ta cứ thử với đồ thị chỉ gồm 2 đỉnh nhưng giữa hai đỉnh đó 
có tới 10” cạnh nối sẽ thấy ngay). Lý do thuật toán chỉ có thể áp dụng trong trường hợp số cạnh có 


giới hạn biết trước đủ nhỏ là như vậy. 
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program Euler Circuit; 
const 
InputFile = 'EUIER.INP'; 
OutputFile = 'EULER.OUT' ; 


max = 100; 
maxE = 20000; {Só cạnh tối đa) 
Var 


a: array[1..max, 1..max] of Integer; 
stack: array[l..maxE] of Integer; 
n, last: Integer; 


procedure Enter; (Nhập dữ liêu} 
var 
u, v, k: Integer; 
f: Text; 
begin 
Assign(f, InputFile); Reset(f) ; 
FillChar(a, Size0f (a), 0); 
ReadIn (f, n); 
while not SeekEof (f) do 
begin 
Readln (f, u, v, k); 
a[u, v] := k; 
a[v, u] := k; 
end; 
Close (f); 
end; 


procedure Push(v: Integer); (Đẩy một đỉnh v vào ngăn xếp] 
begin 

Inc (last) ; 

Stack[last] := v; 
end; 


function Pop: Integer; (Lấy một đỉnh khỏi ngăn xếp, trả vè trong kết quả hàm} 


begin 
Pop := Stack[last] ; 
Dec (last) ; 

end; 


function Get: Integer; (Trả về phần tủ ở đỉnh (Top) ngăn xếp) 
begin 

Get := Stack[last] ; 
end; 


procedure FindEulerCircuit; 
var 
u, v, count: Integer; 
f: Text; 
begin 
Assign (f, OutputFile); Rewrite (f); 
Stack[1] := 1; (Khởi tạo ngăn xếp ban đầu chỉ gồm dinh 1} 
last := 1; 
count := 0; 
while last <> 0 do {Chùng nào ngăn xếp chua rỗng) 
begin 
u := 6et; (Xác định u là phần tử ở đỉnh ngăn xếp) 
for v := 1 to n do 
if a[u, v] > 0 then {Xét tất cả các cạnh liên thuộc với u, néu thấy) 
begin 
Dec(a[u, v]); Dec(a[v, u]); (Xoá cạnh đó khỏi đỗ thi} 
Push(v); (Đẩy đỉnh tiếp theo vào ngăn xếp) 
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Break; 
end; 
if u = Get then (Nếu phần tử ở đỉnh ngăn xếp vẫn là u > vòng lặp trên không tìm thây đỉnh nào kề với u} 

begin 
Ine (count) ; 
Write(f, Pop, ' '); {In ra phàn tử đỉnh ngăn xếp) 

end; 

end; 
Close (£) ; 
end; 


begin 
Enter; 
FindEulerCircuit; 
end. 


Bài tâp 

Trên măt phăng cho n hình chữ nhật có các cạnh song song với các trục toạ độ. Hãy chi ra một chu 
trình: 

Chỉ đi trên cạnh của các hình chữ nhật 

Trên cạnh của mỗi hình chữ nhật, ngoại trừ những giao điểm với cạnh của hình chữ nhật khác có 
thể qua nhiều lần, những điểm còn lại chỉ được qua đúng một lần. 


B C 


I L 
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§7. CHU TRÌNH HAMILTON, ĐƯỜNG ĐI HAMILTON, ĐỎ THỊ 


HAMILTON 
7.1. ĐỊNH NGHĨA 
Cho đồ thị G = (V, E) có n đỉnh 
Chu trình (xi, Xa, ..., Xn, X1) được gọi là chu trình Hamilton nếu xi # xjvóil<i<j<n 


Đường di (xı, X2, ..., Xn) được gọi là đường đi Hamilton néu X¡ # x¡ với l<i<j<n 

Có thê phát biểu một cách hình thức: Chu trình Hamilton là chu trình xuất phát từ 1 đỉnh, đi thăm 
tất cả những đỉnh còn lại mỗi đỉnh đúng 1 lần, cuối cùng quay trở lại đỉnh xuất phát. Đường đi 
Hamilton là đường đi qua tất cả các đỉnh của đồ thị, mỗi đỉnh đúng 1 lần. Khác với khái niệm chu 
trình Euler và đường đi Euler, một chu trình Hamilton không phải là đường đi Hamilton bởi có đỉnh 
xuất phát được thăm tới 2 lần. 

Ví dụ: Xét 3 đơn đồ thị G1, G2, G; như trong Hình 75: 


Hình 75 


Đồ thị G¡ có chu trình Hamilton (a, b, c, d, e, a). G2 không có chu trình Hamilton vì deg(a) = 1 
nhưng có đường đi Hamilton (a, b, c, d). G3 không có cả chu trình Hamilton lẫn đường đi Hamilton 
7.2. ĐỊNH LÝ 

Đồ thị vô hướng G, trong đó tồn tại k đỉnh sao cho nếu xoá đi k đỉnh này cùng với những cạnh liên 
thuộc của chúng thì đồ thị nhận được sẽ có nhiều hơn k thành phần liên thông. Thì khăng định là G 
không có chu trình Hamilton. Mệnh đề phản đảo của định lý này cho ta điều kiện cần để một đồ thị 
có chu trình Hamilton 

Định lý Dirac (1952): Đồ thị vô hướng G có n đỉnh (n > 3). Khi đó néu mọi đỉnh v của G đều có 
deg(v) > n/2 thì G có chu trình Hamilton. Đây là một điều kiện đủ để một đồ thị có chu trình 
Hamilton. 

Đồ thị có hướng G liên thông mạnh và có n đỉnh. Nếu deg Gei >n/2 và deg (v) >n/2 với mọi đỉnh 


v thì G có chu trình Hamilton 
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7.3. CÀI ĐẶT 


Dưới đây ta sẽ cài đặt một chương trình liệt kê tất cả các chu trình Hamilton xuất phát từ đỉnh 1, các 
chu trình Hamilton khác có thể có được bằng cách hoán vị vòng quanh. Lưu ý rằng cho tới nay, 
người ta vẫn chưa tìm ra một phương pháp nào thực sự hiệu quả hơn phương pháp quay lui dë tìm 
dù chỉ một chu trình Hamilton cũng như đường đi Hamilton trong trường hợp đồ thị tổng quát. 
Input: file văn bản HAMILUTON.INP 

e Dòng 1 ghi số đỉnh n (2 < n < 100) và số cạnh m của đồ thị cách nhau 1 dấu cách 

e m dòng tiếp theo, mỗi dòng có dạng hai số nguyên dương u, v cách nhau 1 dấu cách, thể 

hiện u, v là hai đỉnh kề nhau trong đồ thị 

Output: file văn bản HAMILUTON.OUT liệt kê các chu trình Hamilton 


HAMILTON. INP | HAMITTON.OUT 
36 135241 
12 142531 
13 
24 
35 
41 
52 


program All of Hamilton Circuits; 

const 
InputFile 
OutputFile 
max = 100; 


= 'HAMILTON.INP'; 

= 'HAMILTON.OUT'; 

var 
fo: Text; 
a: array[1..max, 1..max] of Boolean; {Ma trân kề của đồ thị: a[u, v] = True & (u, v) là cạnh} 
Free: array[1..max] of Boolean; {Mång đánh dấu Free[v] = True nếu chưa đi qua đỉnh v} 
X: array[l..max] of Integer; {Chu trình Hamilton sẽ tìm là; 1=X[1]—›X[2] > ... ->X[n] —X[1]=1) 
n: Integer; 


procedure Enter; 
var 
i, u, v, m: Integer; 
f: Text; 
begin 
Assign(f, InputFile); Reset(f) ; 
FillChar(a, Size0f (a), False); 
Readln (f, n, m); 
for i := 1 to m do 
begin 
Readln (f, u, v); 
a[u, v] := True; 
a[v, u] := True; 
end; 
Close (f); 
end; 


procedure PrintResult; (In kết quả néu tìm thấy chu trình Hamilton} 
var 

i: Integer; 
begin 

for i := 1 to n do Write(fo, X[i], ' '); 

WriteLn(fo, X[1]); 
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end; 


procedure Try(i: Integer); {Thử các cách chọn đỉnh thứ i trong hành trình} 
var 
j: Integer; 
begin 
for j e 1 tondo (Đỉnh thứ i (Xi) có thể chọn trong những đỉnh} 
if Free[j] and a[x[i - 1], j] then {kề với Xi - 1] và chưa bị đi qua } 
begin 
x[i] := j; {Thử một cách chọn Xil} 
if i < n then (Nếu chưa thử chọn đến X[n]} 
begin 
Free[j] := False; {Đánh dấu đỉnh j là đã đi qua} 
Try(i + 1); {Để các bước thử kế tiếp không chọn phải đỉnh j nữa} 
Free[j] := True; {Së thử phưng án khác cho XI nên sẽ bỏ đánh dáu đỉnh vừa thử} 
end 
else {Nếu đã thử chọn đến X[n]} 
if ali, X[1]] then PrintResult; {và nếu X[n] lại kề với X[1] thì ta có chu trình Hamilton} 
end; 
end; 


begin 
Enter; 
Fi11Char (Free, SizeOf(Free), True); (Khởi tạo: Các đỉnh đều chưa đi qua} 
X[1] := 1; Free[l] := False; (Bất đầu tù đỉnh 1] 
Assign (fo, 0utputFile); Rewrite (fo) ; 
Try(2); (Thủ các cách chọn đỉnh kế tiếp) 
Close (fo) ; 
end. 


Bài tập 

Bài 1 

a) Lập chương trình nhập vào một đồ thị và chỉ ra đúng một chu trình Hamilton nếu có. 

b) Lập chương trình nhập vào một đồ thị và chỉ ra đúng một đường đi Hamilton nếu có. 

Bài 2 

Trong đám cưới của Péc-xây và An-đrơ-nét có 2n hiệp sỹ. Mỗi hiệp sỹ có không quá n - 1 kẻ thù. 
Hãy giúp Ca-xi-ô-bê, mẹ của An-đrơ-nét xếp 2n hiệp sỹ ngồi quanh một bàn tròn sao cho không có 
hiệp sỹ nào phải ngồi cạnh kẻ thù của mình. Mỗi hiệp sỹ sẽ cho biết những kẻ thù của mình khi họ 
đến sân rồng. 

Bài 3 

Gray code: Một hình tròn được chia thành 2" hình quạt đồng tâm. Hãy xếp tất cả các xâu nhị phân 
độ dài n vào các hình quạt, mỗi xâu vào một hình quạt sao cho bất cứ hai xâu nào ở hai hình quạt 


cạnh nhau đều chỉ khác nhau đúng 1 bit. Ví dụ với n = 3: 
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Bài 4 

Thách đố: Bài toán mã đi tuần: Trên bàn cờ tổng quát kích thước n x n ô vuông (n chẵn và 6 < n < 
20). Trên một ô nào đó có đặt một quân mã. Quân mã đang ở ô (X1, Y1) có thể di chuyên sang ô 


(X2, Y2) nếu | X1-X2Ì|.|Y1-Y2| = 2 (Xem hình vẽ). 


Hãy tìm một hành trình của quân mã từ ô xuất phát, đi qua tất cả các ô của bàn cờ, mỗi ô 
đúng 1 lån. 

Ví dụ: 

Với n = 8, ô xuất phát (3, 3) 


Với n= 10, ô xuất phát (6, 5) 


Gợi ý: Nêu coi các ô của bàn cờ là các đỉnh của đô thị và các cạnh là nôi giữa hai đỉnh tương ứng 


với hai ô mã giao chân thì dễ thấy rằng hành trình của quân mã cần tìm sẽ là một đường đi 
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Hamilton. Ta có thể xây dựng hành trình bằng thuật toán quay lui kết hợp với phương pháp duyệt 
ưu tiên Warnsdorff: Nếu gọi deg(x, y) là số ô kề với ô (x, y) và chưa đi qua (kề ở đây theo nghĩa 
đỉnh kề chứ không phải là ô kề cạnh) thì từ một ô ta sẽ không thử xét lần lượt các hướng đi có thể, 
mà ta sẽ ưu tiên thử hướng đi tới ô có deg nhỏ nhất trước. Trong trường hợp có tồn tại đường 
đi, phương pháp này hoạt động với tốc độ tuyệt vời: Với mọi n chăn trong khoảng từ 6 tới 18, với 
mọi vị trí ô xuất phát, trung bình thời gian tính từ lúc bắt đầu tới lúc tìm ra một nghiệm < 1 giây. 
Tuy nhiên trong trường hợp n lẻ, có lúc không tồn tại đường đi, do phải duyệt hết mọi khả năng 
nên thời gian thực thi lại hết sức tôi tệ. (Có xét ưu tiên như trên hay xét thứ tự như trước kia thì 
cũng vậy thôi. Ta có thể thử với n lẻ: 5, 7, 9... và ô xuất phát (1, 2), sau đó ngồi xem máy tính toát 


mồ hôi). 
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§8. BÀI TOÁN ĐƯỜNG ĐI NGẮN NHÁT 


8.1. ĐỎ THỊ CÓ TRỌNG SỐ 


Đồ thị mà mỗi cạnh của nó được gán cho tương ứng với một số (nguyên hoặc thực) được gọi là đồ 
thị có trọng số. Só gán cho mỗi cạnh của đồ thị được gọi là trọng số của cạnh. Tương tự như đồ thị 
không trọng số, có nhiều cách biểu diễn đồ thị có trọng số trong máy tính. Đối với đơn đồ thị thì 
cách dễ dùng nhất là sử dụng ma trận trọng số: 

Giá sử đồ thị G = (V, E) có n đỉnh. Ta sẽ dựng ma trận vuông C kích thước n x n. Ó đây: 

Nếu (u, v) e E thì C[u, v] = trọng số của cạnh (u, v) 

Nếu (u, v) £ E thì tuỳ theo trường hợp cụ thẻ, C[u, v] được gán một giá trị nào đó để có thể nhận 
biết được (u, v) không phải là cạnh (Chăng hạn có thể gán bằng +œ, hay bằng 0, bằng -œ v.v...) 
Quy ước c[v, v] = 0 với mọi đỉnh v. 

Đường đi, chu trình trong đồ thị có trọng số cũng được định nghĩa giống như trong trường hợp 
không trọng số, chỉ có khác là độ dài đường đi không phải tính bằng số cạnh đi qua, mà được tính 


bằng tổng trọng số của các cạnh đi qua. 
8.2. BÀI TOÁN ĐƯỜNG ĐI NGẮN NHẤT 


Trong các ứng dụng thực tế, chẳng hạn trong mạng lưới giao thông đường bộ, đường thuỷ hoặc 
đường không. Người ta không chỉ quan tâm đến việc tìm đường đi giữa hai địa điểm mà còn phải 
lựa chọn một hành trình tiết kiệm nhất (theo tiêu chuẩn không gian, thời gian hay chi phí). Khi đó 
phát sinh yêu cầu tìm đường đi ngắn nhất giữa hai đỉnh của đồ thị. Bài toán đó phát biểu dưới dạng 
tổng quát như sau: Cho đồ thị có trọng số G = (V, E), hãy tìm một đường đi ngắn nhất từ đỉnh xuất 
phát S e V đến đỉnh đích F € V. Độ dài của đường đi này ta sẽ ký hiệu là d[S, F] và gọi là khoảng 
cách từ S đến F. Nếu như không tòn tại đường đi từ S tới F thì ta sẽ đặt khoảng cách đó = +o. 

Nếu như đồ thị có chu trình âm (chu trình với độ dài âm) thì khoảng cách giữa một số cặp đỉnh nào 
đó có thê không xác định, bởi vì bằng cách đi vòng theo chu trình này một số lần đủ lớn, ta có thê 
chỉ ra đường đi giữa hai đỉnh nào đó trong chu trình này nhỏ hơn bất kỳ một số cho trước nào. 
Trong trường hợp như vậy, có thê đặt vấn đề tìm đường đi cơ bản (đường đi không có đỉnh lặp lại) 
ngắn nhất. Vấn đề đó là một vấn đề hết sức phức tạp mà ta sẽ không bàn tới ở đây. 

Nếu như đồ thị không có chu trình âm thì ta có thê chứng minh được rằng một trong những đường 
đi ngăn nhất là đường đi cơ bản. Và nếu như biết được khoảng cách từ S tới tất cả những đỉnh khác 


thì đường đi ngắn nhất từ S tới F có thể tìm được một cách dễ dàng qua thuật toán sau: 
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Gọi chu, v] là trọng số của cạnh [u, v]. Qui ước c[v, v] = 0 với mọi v € V và c[u, v] = +œ néu như 
(u, v) e E. Đặt d[S, v] là khoảng cách từ S tới v. Để tìm đường đi từ S tới F, ta có thể nhận thấy 
rằng luôn tồn tại đỉnh F; # F sao cho: 

d[S, F] = d[S, F¡] + e[F, F] 

(Độ dài đường đi ngắn nhất S->F = Độ dài đường đi ngắn nhất S->F, + Chỉ phí đi từ F; tới F) 
Đỉnh F¡ đó là đỉnh liền trước F trong đường đi ngắn nhất từ S tới F. Nếu F¡=S thì đường đi ngắn 
nhất là đường đi trực tiếp theo cung (S, F). Nếu không thì vấn đề trở thành tìm đường đi ngắn nhất 
từ S tới Fı. Và ta lại tìm được một đỉnh F, khác F và F; để: 

d[S, F¡]= đ[S, F2] + e[Fa, F1] 
Cứ tiếp tục như vậy, sau một số hữu hạn bước, ta Suy ra rằng dãy F, F1, F2, ... không chứa đỉnh lặp 


lại và kết thúc ở S. Lët ngược thứ tự dãy cho ta đường đi ngắn nhất từ S tới F. 


Tuy nhiên, người ta thường không sử dụng phương pháp này mà sẽ kết hợp lưu vết đường đi ngay 
trong quá trình tìm kiếm. 
Dưới đây ta sẽ xét một số thuật toán tìm đường đi ngắn nhất từ đỉnh S tới đỉnh F trên đơn đồ thị có 
hướng G = (V, E) có n đỉnh và m cung. Trong trường hợp đơn đồ thị vô hướng với trọng số không 
âm, bài toán tìm đường đi ngắn nhất có thê dẫn về bài toán trên đồ thị có hướng bằng cách thay mỗi 
cạnh của nó bằng hai cung có hướng ngược chiều nhau. Lưu ý rằng các thuật toán đưới đây sẽ luôn 
luôn tìm được đường đi ngắn nhất là đường đi cơ bản. 
Input: file văn bản MINPATH.INP 
e Dòng 1: Chúa số đỉnh n ( < 100), số cung m của đồ thị, đỉnh xuất phát S, đỉnh đích F cách 
nhau ít nhất 1 dấu cách 
e m dòng tiép theo, mỗi dòng có dạng ba SỐ u, v, c[u, v] cách nhau ít nhất 1 dấu cách, thê hiện 
(u, v) là một cung e E và trọng số của cung đó là c[u,v] (c[u, v] là số nguyên có giá trị tuyệt 
đối < 100) 
Output: file văn bản MINPATH.OUT ghi đường đi ngắn nhất từ S tới F và độ dài đường đi đó 
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MINPATH.INP || MINPATH.OUT 

6714 Distance from 1 to 4: 15 
121 4<-5<-6<-3<-2<-1 

1620 
232 
363 
3420 
545 
654 


8.3. TRƯỜNG HỢP ĐỎ THỊ KHÔNG CÓ CHU TRÌNH ÂM - THUẬT TOÁN 
FORD BELLMAN 


Thuật toán Ford-Bellman có thể phát biĉu rất đơn giản: 
Với đỉnh xuất phát S. Gọi dfv] là khoảng cách từ S tới v với các giá trị khởi tạo là: 
e d/SJ=0 
e div]=+ænéuv #Š 
Sau đó ta tối wu hoá dën các dfv] như sau: Xét mọi cặp đỉnh u, v của đồ thị, nếu có một cặp đỉnh 
u, v mà df[v] > dutt edu, vị thì ta đặt lại df[v] := d[uj + c[u, v]. Tức là nếu độ dải đường đi từ S tới 
v lại lớn hơn tông độ dài đường đi từ S tới u cộng với chỉ phí đi từ u tới v thì ta sẽ huỷ bỏ đường đi 
từ S tới v đang có và coi đường đi từ S tới v chính là đường đi từ S tới u sau đó đi tiếp từ u tới v. 
Chú ý rằng ta đặt c[u, v] = +œ nếu (u, v) không là cung. Thuật toán sẽ kết thúc khi không thê tối ưu 
thêm bất kỳ một nhãn d[v] nào nữa. 
Tính dung của thuật toán: 
Tại bước khởi tạo thì mỗi d[v] chính là độ dài ngắn nhất của đường đi từ S tới v qua không quá 0 
cạnh. 
Giả sử khi bắt đầu bước lặp thứ i (i > 1), d[v] đã bằng độ dài đường đi ngắn nhất từ S tới v qua 
không quá i - 1 cạnh. Do tính chất: đường đi từ S tới v qua không quá i cạnh sẽ phải thành lập bằng 
cách: lây một đường đi từ S tới một đỉnh u nào đó qua không quá i - 1 cạnh, rồi đi tiếp tới v bằng 
cung (u, v), nên độ dài đường đi ngắn nhất từ S tới v qua không quá ¡ cạnh sẽ được tính bằng giá trị 
nhỏ nhất trong các giá trị: (Nguyên lý tối ưu Bellman) 
Độ dài đường đi ngắn nhất từ S tới v qua không quá i - 1 cạnh 
Độ dài đường đi ngắn nhất từ S tới u qua không quá i - 1 cạnh cộng với trọng só canh (u, v) (Vu) 

Vì vậy, sau bước lặp tối ưu các d[v] bằng công thức 

d[v]cước i = mìn(d[V ]bước 1, d[u]ouóc 7 c[u, v]) (Vu) 

thì các d[v] sẽ bằng độ dài đường đi ngắn nhất từ S tới v qua không quá i cạnh. 
Sau bước lặp tối ưu thứ n - 1, ta có d[v] = độ dài đường đi ngắn nhất từ S tới v qua không quá n - 1 
cạnh. Vì đồ thị không có chu trình âm nên sẽ có một đường đi ngắn nhất từ S tới v là đường đi cơ 
bản (qua không quá n - 1 cạnh). Tức là d[v] sẽ là độ dài đường đi ngắn nhất từ S tới v. 
Vậy thì số bước lặp tối ưu hoá sẽ không quá n - 1 bước. 
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Trong khi cài đặt chương trình, nếu mỗi bước lặp được mô tả dưới dạng: 


for u := 1 to n do 
for v := 1 to n do 
d[v] := min(d[v], d[u] + c[u, v]); 


Do sự tói ưu bắc cầu (dùng d'al tối ưu d[v] ròi lại có thể dùng d[v] tối ưu d[w] nữa...) chỉ làm tốc 


độ tối ưu nhãn d[v] tăng nhanh hơn nên số bước lặp tối ưu nhãn vẫn sẽ không quá n - 1 bước 


program Shortest_Path by Ford Bellman; 
const 


InputFile = 'MINPATH.INP'; 
OutputFile = 'MINPATH.OUT'; 
max = 100; 
maxC = 10000; 

var 


c: array[1..max, 1..max] of Integer; 
d: array[1..max] of Integer; 

Trace: array[1..max] of Integer; 

n, S, F: Integer; 


procedure LoadGraph; (Nhập dò thị, dò thị không được có chu trình âm} 


var 
i, m, u, v: Integer; 
fi: Text; 

begin 


Assign(fi, InputFile); Reset (fi); 
ReadIn (fi, n, m, S, F); 
{Những cạnh không có trong đổ thị được gán trọng số +0} 
for u := 1 to n do 
for v := 1 to n do 
if u = v then c[u, v] := 0 else c[u, v] := maxC; 
for i := 1 to m do ReadLn(fi, u, v, c[u, v]); 
Close (f1) ; 
end; 


procedure Init; {Khói tạo) 


var 
i: Integer; 

begin 
for i := 1 to n do d[i] := MaxC; 
d[S] := 0; 

end; 


procedure Ford Bellman; (Thuật toán Ford-Bellman) 
var 
Stop: Boolean; 
u, v, CountLoop: Integer; 
begin 
for CountLoop := 1 to n - 1 do 
begin 
Stop := True; 
for u := 1 to n do 
for v := 1 to n do 
if d[v] > d[u] + c[u, v] then (Nếu Ju, v thoả mãn dịv] > d[u] + c[u, v] thì tối ưu lại d[v]) 
begin 
div] := d[u] + c[u, v]; 
Trace[v] := u; {Luu vết đường di} 
Stop := False; 
end; 
if Stop then Break; 
end; 
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{Thuật toán kết thúc khi không sửa nhãn các d[v] được nữa hoặc đã lặp đủ n - 1 lần ) 
end; 


procedure PrintResult; {In đường đi tù S tới F} 
var 
fo: Text; 
begin 
Assign (fo, OutputFile); Rewrite (fo); 
if d[F] = maxC then (Nếu d[F] vẫn là +% thì túc là không có đường) 
WriteLn(fo, 'Path from ', S, ' to ', F, ' not found') 
else {Truy vết tìm đường đi) 
begin 
Writeln(fo, 'Distance from ', S, ' to ', F, ': ', đỊPF]); 
while F <> § do 
begin 
Write(fo, F, '<-'); 
F ;= Trace[F]; 
end; 
Writeln(fo, S); 
end; 
Close (fo) ; 
end; 


begin 
1oadGraph; 
Tnit; 
Ford Bellman; 


PrintResult; 
end. 


8.4. TRƯỜNG HỢP TRỌNG SỐ TRÊN CÁC CUNG KHÔNG ÂM - THUẬT 
TOÁN DIJKSTRA 


Trong trường hợp trọng số trên các cung không âm, thuật toán do Dijkstra đề xuất dưới đây hoạt 
động hiệu quả hơn nhiều so với thuật toán Ford-Bellman. Ta hãy xem trong trường hợp này, thuật 
toán Ford-Bellman thiếu hiệu quả ở chỗ nào: 

Với đỉnh v e V, Gọi d[v] là độ dài đường đi ngắn nhất từ S tới v. Thuật toán Ford-Bellman khởi 
gán d[S] = 0 và đ[v] = +œ với Yv # S, sau đó tôi ưu hoá dần các nhãn d[v] bằng cách sửa nhãn theo 
công thức: d[v] := min(d[v], d[u] + c[u, v]) với Vu, v e V. Như vậy nếu như ta dùng đỉnh u sửa 
nhãn đỉnh v, sau đó nếu ta lại tối ưu được d[u] thêm nữa thì ta cũng phải sửa lại nhãn d[v] dẫn tới 
việc d[v] có thể phải chỉnh đi chỉnh lại rất nhiều lần. Vậy nên chăng, tại mỗi bước không phải ta 
xét mọi cặp đỉnh (u, v) để dùng đỉnh u sửa nhãn đỉnh v mà sẽ chọn đỉnh u là đỉnh mà không thể 
tối ưu nhãn dịu] thêm được nữa. 

Thuật toán Dijkstra (E.Djkstra - 1959) có thể mô tả như sau: 

Bước 1: Khởi tạo 

Với đỉnh v €e V, gọi nhãn d[v] là độ dài đường đi ngắn nhất từ S tới v. Ta sẽ tính các d[v]. Ban đầu 
d[v] được khởi gán như trong thuật toán Ford-Bellman (d[S] = 0 và d[v| = œ với Yv z S). Nhãn của 
mỗi đỉnh có hai trạng thái tự do hay có định, nhãn tự do có nghĩa là có thể còn tối ưu hơn được nữa 


và nhãn có định tức là d[v] đã bằng độ dài đường đi ngắn nhất từ S tới v nên không thể tối ưu thêm. 
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Để làm điều nảy ta có thể sử dụng kỹ thuật đánh dấu: Free[v] = TRUE hay FALSE tuỳ theo d[v] tự 
do hay có định. Ban đầu các nhãn đều tự do. 
Bước 2: Lặp 
Bước lặp gồm có hai thao tác: 

1. Có định nhãn: Chọn trong các đỉnh có nhãn tự do, lấy ra đỉnh u là đỉnh có d[u] nhỏ 

nhất, và có định nhãn đỉnh u. 
2. Sửa nhãn: Dùng đỉnh u, xét tất cả những đỉnh v và sửa lại các d[v] theo công thức: 
d[v] zc min(d[v], dịu] + c[u, v]) 

Bước lặp sẽ kết thúc khi mà đỉnh đích F được cố định nhãn (tìm được đường đi ngắn nhất từ 
S tới F); hoặc tại thao tác có định nhãn, tất cả các đỉnh tự do đều có nhãn là +œ (không tồn tại 
đường di). 
Có thê đặt câu hỏi, ở thao tác 1, tại sao đỉnh u như vậy được có định nhãn, giả sử d[u] còn có thể tối 
ưu thêm được nữa thì tất phải có một đỉnh t mang nhãn tự do sao cho d[u] > d[t] + elt, u]. Do trọng 
số c[t, u] không âm nên d[u] > dt. trái với cách chọn d[u] là nhỏ nhất. Tất nhiên trong lần lặp đầu 
tiên thì S là đỉnh được có định nhãn do d[S] = 0. 
Bước 3: Kết hợp với việc lưu vết đường đi trên từng bước sửa nhãn, thông báo đường đi ngắn nhất 


tìm được hoặc cho biết không tồn tại đường đi (d[F] = +œ). 


program Shortest_Path by Dijkstra; 

const 
TnputFile 
OutputFile 
max = 100; 
maxC = 10000; 

var 
c: array[1..max, 1..max] of Integer; 
d: array[1..max] of Integer; 
Trace: array[1..max] of Integer; 
Free: array[1..max] of Boolean; 
n, S, F: Integer; 


'MINPATH. INP' ; 
'MINPATH.OUT' ; 


procedure LoadGraph; (Nhập đổ thị, trọng số các cung phải là số không âm} 


var 
i, m, u, v: Integer; 
fi: Text; 

begin 


Assign(fi, InputFile); Reset (fi); 
ReadIn (fi, n, m, S, F); 
for u := 1 to n do 
for v := 1 to n do 
if u = v then c[u, v] := 0 else c[u, v] := maxC; 
for i := 1 to m do ReadLn(fi, u, v, c[u, v]); 
Close (f1) ; 
end; 


procedure Init; {Khói tạo các nhãn dịv], các đỉnh đều được coi là tự do} 
var 

i: Integer; 
begin 
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for i := 1 to n do d[i] := MaxC; 


d[S] := 0; 


FillChar (Free, Size0f (Free), True); 


end; 


procedure Dijkstra; (Thuật toán Dijkstra} 


var 
i, u, v: Integer; 
min: Integer; 
begin 
repeat 


{Tìm trong các đỉnh có nhãn ty do ra đỉnh u có d[u] nhỏ nhất) 


u := 0; min := maxC; 
for i := 1 to n do 


if Free[i] and (d[i] < min) then 


begin 
min := d[i]; 
u :Z1; 

end; 


Chuyên đề 


{Thuật toán sẽ kết thúc khi các đỉnh tų do đều có nhãn +o hoặc đã chọn đến đỉnh F} 


if (u = 0) or (u = F) then Break: 


{Có định nhãn đỉnh u} 
Free[u] := False; 


{Dùng đỉnh u tối ưu nhãn những đỉnh tự do kè với u} 


for v := 1 to n do 


if Free[v] and (d[v] > d[u] + c[u, v]) then 


begin 


d[v] := d[u] + c[u, v]; 


Trace[v] := u; 
end; 
until False; 
end; 


procedure PrintResult; {In đường đi tù 5 tói F} 


var 
fo: Text; 
begin 


Assign (fo, OutputFile) ` Rewrite (fo); 


if d[F] = maxC then 


WriteLn(fo, 'Path from ', S, ' to ', F, ' not found') 


else 
begin 


WriteLn(fo, 'Distance from ', S, ' to ', F, Ir 


while F <> § do 
begin 
Write(fo, F, '<-'); 
F := Trace[F]; 
end; 
Writeln (fo, S); 
end; 
Close (fo); 
end; 


begin 
LoadGraph; 
Init; 
Dijkstra; 
PrintResult; 
end. 
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8.5. THUẬT TOÁN DIJKSTRA VÀ CẤU TRÚC HEAP 


Nếu đồ thị có nhiều đỉnh, ít cạnh, ta có thể sử dụng danh sách kè kèm trọng số để biéu diễn đồ thị, 
tuy nhiên tốc độ của thuật toán DIJKSTRA vẫn khá chậm vì trong trường hợp xấu nhất, nó cần n 
lần có định nhãn và mỗi lần tìm đỉnh để có định nhãn sẽ mất một đoạn chương trình với độ phức tạp 
O(n). Để tăng tốc độ, người ta thường sử dụng cấu trúc dữ liệu Heap đề lưu các đỉnh chưa có định 
nhãn. Heap ở đây là một cây nhị phân hoàn chỉnh thoả mãn: Nếu u là đỉnh lưu ở nút cha và v là 
đỉnh lưu ở nút con thì d[u] < d[v]. (Đỉnh r lưu ở gốc Heap là đỉnh có d[r] nhỏ nhất). 

Tại mỗi bước lặp của thuật toán Dijkstra có hai thao tác: Tìm đỉnh có định nhãn và Sửa nhãn. 

Với mỗi đỉnh v, gọi Pos[v] là vị trí đỉnh v trong Heap, quy ước Pos[v] = 0 nếu v chưa bị đây vào 
Heap. Mỗi lần có thao tác sửa đổi vị trí các đỉnh trên cấu trúc Heap, ta lưu ý cập nhập lại mảng Pos 
này. 

Thao tác tìm đỉnh có định nhãn sẽ lấy đỉnh lưu ở gốc Heap, cố định nhãn, đưa phần tử cuối Heap 
vào thế chỗ và thực hiện việc vun đống (Adjust). 

Thao tác sửa nhãn, sẽ duyệt danh sách kè của đỉnh vừa cố định nhãn và sửa nhãn những đỉnh tự do 
kề với đỉnh này, mỗi lần sửa nhãn một đỉnh nào đó, ta xác định đỉnh này nằm ở đâu trong Heap 
(dựa vào mảng Pos) và thực hiện việc chuyên đỉnh đó lên (UpHeap) phía gốc Heap nếu cần để bảo 
toàn cầu trúc Heap. 

Cài đặt dưới đây có Input/Output giống như trên nhưng có thể thực hiện trên đồ thị 5000 đỉnh, 
10000 cạnh, trọng số mỗi cạnh < 10000. 


program Shortest_Path by Dijkstra and Heap; 
const 


InputFile = 'MINPATH.INP'; 
OutputFile = 'MINPATH.OUT'; 
max = 5000; 
maxE = 10000; 
maxC = 1000000000; 

type 


TAdj = array[1..maxE] of Integer; 
TAdjCost = array[1..maxE] of LongInt; 
THeader = array[1..max + 1] of Integer; 
var 
adj: ^TAdj; {Danh sách kè dang mång} 
adjCost: ^TAdjCost; (Kèm trọng số) 
h: ^THeader; (Mảng đánh dấu các đoạn trong mảng adi" chứa danh sách kể) 
d array[1..max] of LongInt; 
Trace: array[1..max] of Integer; 
Free: array[l..max] of Boolean; 
heap: array[1..max] of Integer; (heap[i] = đỉnh lưu tại nút i của heap} 
Pos: array[l..max] of Integer; {pos[v] = vị trí của nút v trong heap (túc là pos[heap[l]] = 1)} 
n, S, F, nHeap: Integer; 


procedure LoadGraph; (Nhập dữ liêu} 


var 
i, m, u, v, c: Integer; 
fi: Text; 

begin 
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(Đọc file lần 1, để xác định các đoạn) 

Assign (fi, TnputFile); Reset (fi) ; 

ReadIn (fi, n, m, S, F); 

New (h) ; 

New (adj) ` New(adjCost) ; 

{Phép đếm phân phối (Distribution Counting) } 

FillChar(h^, §ize0f(h^), 0); 

for i := 1 to m do 

begin 

Readln (fi, u); (Ta chỉ càn tính bán bậc ra (deg) của mỗi đỉnh nên không cần đọc đủ 3 thành phån} 
Tne (h^ [u]) ; 


end; 
for i := 2 to n do h^[i] := h^[i - 1] + h^[i]; 
Close (f1) ; 


(Đến đây, ta xác định được h[u] là vị trí cuối của danh sách kể đỉnh u trong adi" 
Reset(fi); (Đọc file lần 2, vào cấu trúc danh sách kể] 
ReadIn (fi); (Bỏ qua dòng đầu tiên Input file} 
for i := 1 to m do 
begin 
ReadIn (fi, u, v, c); 
adj^[h^[u]] := v; (Điển v và c vào vị trí đúng trong danh sách kể của u} 
adjCost^[h^[u]] := c; 
Dec (h^[u]); 
end; 
h^[n + 1] := m; 
Close (fi); 
end; 


procedure Init; (Khởi tạo d[i] = độ dài đường đi ngắn nhất tù S tói i qua 0 cạnh, Heap rỗng) 
var 


i: Integer; 

begin 
for i := 1 to n do d[i] := maxC; 
d[S] := 0; 


FillChar (Free, Size0f (Free), True); 
FillChar (Pos, Size0f (Pos), 0); 
nHeap := 0; 

end; 


procedure Update (v: Integer); (Đỉnh v vừa được sửa nhãn, cần phải chỉnh lại Heap} 
var 
parent, child: Integer; 
begin 
child := Pos[v]; {child là vị trí của v trong Heap} 
if child = 0 then (Nếu v chưa có trong Heap thì Heap phải bổ sung thêm 1 phần tử và coi child = nút lá cuối Heap} 
begin 
Inc(nHeap); child := nHeap; 
end; 
parent := child div 2; {parent là nút cha của child} 
while (parent > 0) and (d[heap[parent]] > d[v]) do 
begin (Nếu đỉnh lưu ở nút parent ưu tiên kém hon v thì đỉnh đó sẽ bị đây xuống nút con child} 
heap[child] := heap[parent]; (Đẩy đỉnh lưu trong nút cha xuống nút con] 
Pos[heap[child]] := child; {Ghi nhận lại vị trí mới của đỉnh đó} 
child := parent; (Tiếp tục xét lên phía nút gốc] 
parent := child div 2; 
end; 
{Thao tác "kéo xuống" ở trên tạo ra một "khoảng trống" tại nút child của Heap, đỉnh v sẽ được đặt vào đây) 
heap[child] := v; 
Pos[v] := child; 
end; 


function Pop: Integer; 


var 
r, c, v: Integer; 
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begin 
Pop := heap[l]; (Nút gốc Heap chứa đỉnh có nhãn tự do nhỏ nhất) 
v := heap[nHeap]; {v là đỉnh ở nút lá cuổi Heap, sẽ được đảo lên đầu và vun đống} 
Dec (nHeap) ; 
r := 1; {Bắt đầu tù nút gốc] 
while r * 2 <= nHeap do (Chùng nào r chưa phải là lá} 


begin 
{Chọn c là nút chúa đỉnh ưu tiên hơn trong hai nút con} 
œ€:zr#2; 


if (c < nHeap) and (d[heap[c + 1]] < d[heap[c]]) then Inc(c) ; 

{Néu v ưu tiên hon cả đỉnh chúa trong C, thì thoát ngay} 
if d[v] <= d[heap[c]] then Break; 
heap[r] := heap[c]; (Chuyển đỉnh lưu ở nút con c lên nút cha r} 
Pos[heap[r]] := r; {Ghi nhận lại vị trí mới trong Heap của đỉnh đó} 
r := c; {Gán nút cha := nút con và lặp lại} 


end; 
heap[r] := v; {Đinh v sẽ được đặt vào nút r để bảo toàn cầu trúc Heap} 
Pos[v] := r; 
end; 


procedure Dijkstra; 
var 
i, u, iv, v, min: Integer; 
begin 
Update (1) ; 
repeat 
u := Pop; (Chọn đỉnh ty do có nhãn nhỏ nhất] 
if u = F then Break; (Nếu đỉnh đó là F thì dùng ngay) 
Free[u] := False; (Cô định nhãn đỉnh đó) 
for iv := h^{[u] + 1 to h^[u + 1] do {Xét danh sách kể) 
begin 
v := ad)^[iv]; 
if Free[v] and (d[v] > d[u] + adjCost^[iv]) then 
begin 
dịv] := d[u] + adjfŒost^[iv]; (Tối ưu hoá nhãn của các đỉnh tự do kề với u} 
Trace[v] := u; {Luu vết đường đi) 
Update (v); (Tô chúc lại Heap} 
end; 
end; 
until nReap = 0; {Không còn đỉnh nào mang nhãn tụ do} 
end; 


procedure PrintResult; 
var 
fo: Text; 
begin 
Assign (fo, OutputFile); Rewrite (fo); 
if d[F] = maxC then 
WriteLn(fo, 'Path from ', S, ' to ', F, ' not found') 
else 
begin 
WriteLn(fo, 'Distance from ', S, ' to ', F, ': ', đỊPF]); 
while F <> § do 
begin 
Write(fo, F, '<-'); 
F ;= Trace[F]; 
end; 
Writeln(fo, S); 
end; 
Close (fo); 
end; 


begin 
LoadGraph; 
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Tnit; 

Dijkstra; 

PrintResult; 
end. 


8.6. TRƯỜNG HỢP ĐỎ THỊ KHÔNG CÓ CHU TRÌNH - THỨ TỰ TÔ PÔ 


Ta có định lý sau: Giả sử G = (V, E) là đồ thị không có chu trình (có hướng - tất nhiên). Khi đó các 
đỉnh của nó có thể đánh số sao cho mỗi cung của nó chỉ nối từ đỉnh có chỉ số nhỏ hơn đến đỉnh có 


chỉ sô lớn hơn. 


Hình 76: Phép đánh lại chỉ số theo thứ tự tôpô 


Thuật toán đánh số lại các đỉnh của đồ thị có thể mô tả như sau: 

Trước hết ta chọn một đỉnh không có cung đi vào và đánh chỉ số 1 cho đỉnh đó. Sau đó xoá bỏ đỉnh 
này cùng với tất cả những cung từ u đi ra, ta được một đồ thị mới cũng không có chu trình, và lại 
đánh chỉ số 2 cho một đỉnh v nào đó không có cung đi vào, rồi lại xoá đỉnh v cùng với các cung từ v 
đi ra... Thuật toán sẽ kết thúc nếu như hoặc ta đã đánh chỉ số được hết các đỉnh, hoặc tất cả các 
đỉnh còn lại đều có cung đi vào. Trong trường hợp tất cả các đỉnh còn lại đều có cung đi vào thì sẽ 
tồn tại chu trình trong đồ thị và khăng định thuật toán tìm đường đi ngắn nhất trong mục này không 
áp dụng được. (Thuật toán đánh số này có thê cải tiến bằng cách dùng một hàng đợi và cho những 
đỉnh không có cung đi vào đứng chờ lần lượt trong hàng đợi đó, lần lượt rút các đỉnh khỏi hàng đợi 
và đánh số cho nó, đồng thời huỷ những cung đi ra khỏi đỉnh vừa đánh số, lưu ý sau mỗi lần loại bỏ 
cung (u, v), nếu thấy bán bậc vào của v = 0 thì đây v vào chờ trong hàng đợi, như vậy đỡ mất công 
duyệt dë tìm những đỉnh có bán bậc vào = 0) 

Nếu các đỉnh được đánh số sao cho mỗi cung phải nối từ một đỉnh tới một đỉnh khác mang chỉ số 
lớn hơn thì thuật toán tìm đường đi ngắn nhất có thê mô tả rất đơn giản: 

Gọi d[v] là độ dài đường đi ngắn nhất từ S tới v. Khởi tạo d[S] = 0 và d[v] = œ với Yv + S. Ta sẽ 
tính các d[v] như sau: 


for u := 1 ton - 1 do 
for v :=u + 1 to n do 
d[v] := min(d[v], d[u] + c[u, v]); 


(Giả thiết rằng c[u, v] = +% néu như (u, v) không là cung). 
Tức là dùng đỉnh u, tối ưu nhãn d[v] của những đỉnh v nối từ u, với u được xét lần lượt từ 1 tóin- 1. 
Có thể làm tốt hơn nữa bằng cách chỉ cần cho u chạy từ đỉnh xuất phát S tới đỉnh kết thúc F. Bởi hễ 


u chạy tới đâu thì nhãn dịu] là không thể cực tiểu hoá thêm nữa. 
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program Critical Path; 
const 
InputFile = 'MINPATH.INP'; 
OutputFile = 'MINPATH.OUT'; 
max = 100; 
maxC = 10000; 
var 
c: array[1..max, 1..max] of Integer; 
List, d, Trace: array[1..max] of Integer; {List là danh sách các đỉnh theo cách đánh số mới} 
n, S, F, count: Integer; 


procedure LoadGraph; (Nhập dữ liệu, đổ thị không được có chu trình) 


var 
i, m, u, v: Integer; 
fi: Text; 

begin 


Assign(fi, InputFile); Reset (fi); 
ReadIn (fi, n, m, S, F); 
for u := 1 to n do 
for v := 1 to n do 
if u = v then c[u, v] := 0 else c[u, v] := maxC; 
for i := 1 to m do ReadLn(fi, u, v, c[u, v]); 
Close (f1) ; 
end; 


procedure Nunber; (Thuật toán đánh số các đỉnh) 
Var 
deg: array[1..max] of Integer; 
u, V: Integer; 
front: Integer; 
begin 
{Truóc hết, tính bán bậc vào của các đỉnh (deg) 
FillChar (deg, Si zept (deg), 0); 
for u := 1 to n do 
for v := 1 to n do 
if (v <> u) and (c[v, u] < maxC) then Inc(deg[u]); 
{Đưa những đỉnh có bán bậc vào = 0 vào danh sách List} 
count := 0; 
for u := 1 to n do 
if deg[u] = 0 then 


begin 
Inc(count); List[count] := u; 
end; 
{front: Chi số phần tử đang xét, count: Số phần tử trong danh sách} 
front := 1; 
while front <= count do {Chùng nào chưa xét hết các phàn tử trong danh sách} 
begin 


{Xét phần tủ thú front trong danh sách, đây con trỏ front sang phàn tử kế tiếp] 
u := List[front]; Ine(front) ; 
for v := 1 to n do 
if c[u, v] <> maxC then {Xét những cung (u, v) và "loại" khỏi dò thi © deg (v) giám 1} 
begin 
Dec (deg[v]) ; 
if deg[v] = 0 then {Nếu v trở thành đỉnh không có cung đi vào} 
begin (Đua tiếp v vào danh sách List} 
Inc (count) ; 
1ist[count] := v; 
end; 
end; 
end; 
end; 
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procedure Init; 


var 
i: Integer; 

begin 
for i := 1 to n do d[i] := maxC; 
d[S] := 0; 

end; 


procedure FindPath; (Thuật toán quy hoạch động tìm đường đi ngắn nhất trên đổ thị không chu trình] 
var 
i, j, u, v: Integer; 
begin 
for i := 1 ton - 1 do 
for j := i +1 tondo 
begin 
u := List[i]; v := List[j]; (Dùng List[i] tối ưu nhãn List[j] với i < j} 
if d[v] > d[u] + c[u, v] then 
begin 
div] := d[u] + c[u, v]; 
Trace[v] := u; 
end 
end; 
end; 


procedure PrintResult; {In đường đi tù 5 tói F} 
var 
fo: Text; 
begin 
Assign (fo, OutputFile); Rewrite (fo); 
if d[F] = maxC then 
WriteLn(fo, 'Path from ', S, ' to ', F, ' not found') 


else 
begin 
WriteLn(fo, 'Distance from ', S, ' to ', F, ': ', đỊPF]); 
while F <> § do 
begin 
Write(fo, F, '<-'); 
F ;= Trace[F]; 
end; 
Writeln (fo, S); 
end; 
Close (fo) ; 
end; 
begin 
1oadGraph; 
Number ; 
Tnit; 
FindPath; 
PrintResult; 
end. 


8.7. ĐƯỜNG ÐI NGÁN NHÁT GIỮA MỌI CAP ĐỈNH - THUẬT TOÁN 
FLOYD 


Cho đơn đồ thị có hướng, có trọng số G = (V, E) với n đỉnh và m cạnh. Bài toán đặt ra là hãy tính 
tất cả các d(u, v) là khoảng cách từ u tới v. Rõ ràng là ta có thể áp dụng thuật toán tìm đường đi 


ngắn nhất xuất phát từ một đỉnh với n khả năng chọn đỉnh xuất phát. Nhưng ta có cách làm gọn hơn 
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nhiều, cách làm này rất giống với thuật toán Warshall mà ta đã biết: Từ ma trận trọng số c, thuật 
toán Floyd tính lại các c[u, v] thành độ dài đường đi ngắn nhất từ u tới v: 
Với mọi đỉnh k của đồ thị được xét theo thứ tự từ 1 tới n, xét mọi cặp đỉnh u, v. Cực tiểu hoá c[u, v] 
theo công thức: 

chu. v] := min(c[u, v], c[u, k] + c[k, v]) 
Tức là néu nhw đường đi từ u tói v đang có lại dài hơn đường đi từ u tói k cộng với đường di từ k 
tới v thì ta huỷ bỏ đường đi từ u tới v hiện thời và coi đường di từ u tới v sẽ là nối của hai đường di 
từ u tới k rồi từ k tới v (Chú ý rằng ta còn có việc lưu lại vét): 


for k := 1 to n do 
for u := 1 to n do 
for v := 1 to n do 
c[u, v] := min(c[u, v], c[u, k] + c[k, v]); 
Tính dung của thuật toán: 


Gọi ck[u, v] là độ dài đường đi ngắn nhất từ u tới v mà chỉ đi qua các đỉnh trung gian thuộc tập {1, 
2,..., k}. Rõ ràng khi k = 0 thì e°[u, v] = c[u, v] (đường đi ngắn nhất là đường đi trực tiếp). 
Giả sử ta đã tính được các c'u, v] thì cu, v] sẽ được xây dựng như sau: 
Nếu đường di ngắn nhất từ u tới v mà chỉ qua các đỉnh trung gian thuộc tập {1, 2,..., k} lại: 
e Không đi qua đỉnh k thì tức là chỉ qua các đỉnh trung gian thuộc tập {1, 2,..., k - 1} thì 
cu, v]= c“†[u, vị 
e Có đi qua đỉnh k thì đường đi đó sẽ là nối của một đường đi từ u tới k và một đường đi từ k 
tới v, hai đường đi này chỉ đi qua các đỉnh trung gian thuộc tập {1, 2,..., k- 1}. 
chu. v] = e*'{u, k] + e*'[k, v]. 

Vì ta muốn cu, v] là cực tiểu nên suy Ta: cÍ{u, v] = min(ceF*'[u, v], e°'[u, k] + eŸ†[k, v]). 
Và cuối cùng, ta quan tâm tới c"[u, v]: Độ dài đường đi ngắn nhất từ u tới v mà chỉ đi qua các đỉnh 
trung gian thuộc tập {1, 2, ..., n}. 
Khi cài đặt, thì ta sẽ không có các khái niệm cfu, v] mà sẽ thao tác trực tiép trên các trọng số c[u, 
v]. chu. v] tại bước tối ưu thứ k sẽ được tính toán để tối ưu qua các giá trị chu, v]; c[u, k] và c[k, v] 
tại bước thứ k - 1. Tính chính xác của cách cài đặt đưới dạng ba vòng lặp for lồng như trên có thê 


thây được do sự tôi ưu bắc cầu chỉ làm tăng tốc độ tối ưu các c[u, v] trong mỗi bước 


program Shortest_Path by Floyd; 
const 
InputFile = 'MINPATH.INP'; 
OutputFile = 'MINPATH.OUT'; 


max = 100; 
maxC = 10000; 
var 


c: array[1..max, 1..max] of Integer; 
Trace: array[1..max, 1..max] of Integer; (Trace[u, v] = Đỉnh lièn sau u trên đường đi tù u tới v} 
n, S, F: Integer; 


procedure LoadGraph; (Nhập dữ liệu, đồ thị không được có chu trình âm) 
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var 
i, m, u, v: Integer; 
fi: Text; 

begin 


Assign(fi, InputFile); Reset (fi); 
ReadIn (fi, n, m, S, F); 
for u := 1 to n do 
for v := 1 to n do 
if u = v then c[u, v] := 0 else c[u, v] := maxC; 
for i := 1 to m do ReadLn(fi, u, v, c[u, v]); 
Close (fi); 
end; 


procedure Floyd; 
var 
k, u, v: Integer; 
begin 
for u := 1 to n do 
for v := 1 to n do Trace[u, v] := v; (Giả sử đường đi ngắn nhất giữa mọi cặp đỉnh là đường trục tiếp) 
{Thuật toán Floyd} 
for k := 1 to n do 
for u := 1 to n do 
for v := 1 to n do 
if c[u, v] > c[u, k] + c[k, v] then (Đường đi tù qua k tốt hon} 
begin 
chu, v] := c[u, k] + c[k, v]; {Ghi nhận đường đi đó thay cho đường cũ} 
Trace[u, v] := Trace[u, k]; {Luu vết đường đi) 
end; 
end; 


procedure PrintResult; {In đường đi tù 5 tới F} 
var 
fo: Text; 
begin 
Assign (fo, OutputFile); Rewrite (fo); 
if c[S, F] = maxC 
then WriteLn(fo, 'Path from ', S, ' to ', F, ' not found') 
else 
begin 
Writeln(fo, 'Distance from ', S, ' to ', F, '; ', c[§, F]); 
repeat 
Write(fo, S, '->'); 
S := Trace[S, F]; (Nhắc lại rằng Trace[S, F] là đỉnh liền sau S trên đường đi tói F} 
until § = F; 
Writeln (fo, F); 
end; 
Close (fo); 
end; 


begin 
LoadGraph; 
Floyd; 
PrintResult; 
end. 


Khác biệt rõ ràng của thuật toán Floyd là khi cần tìm đường đi ngắn nhất giữa một cặp đỉnh khác, 


chương trình chỉ việc in kết quả chứ không phải thực hiện lại thuật toán Floyd nữa. 
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8.8. NHÂN XÉT 


Bài toán đường đi dài nhất trên đồ thị trong một số trường hợp có thê giải quyết bằng cách đổi dấu 
trọng số tất cả các cung rồi tìm đường đi ngắn nhất, nhưng hãy cần thận, có thể xảy ra trường hợp 
có chu trình âm. 

Trong tất cả các cài đặt trên, vì sử dụng ma trận trọng số chứ không sử dụng danh sách cạnh hay 
danh sách kè có trọng số, nên ta đều đưa về đồ thị đầy đủ và đem trọng số Le gán cho những 
cạnh không có trong đồ thị ban đầu. Trên máy tính thì không có khái niệm trừu tượng +œ nên ta 
sẽ phải chọn một số đương đủ lớn để thay. Như thế nào là đủ lớn? số đó phải đủ lớn hơn tất cả 
trọng số của các đường đi cơ bản để cho dù đường đi thật có tồi tệ đến đâu vẫn tốt hơn đường đi 
trực tiếp theo cạnh tưởng tượng ra đó. Vậy nên nếu đồ thị cho số đỉnh cũng như trọng số các cạnh 
vào cỡ 300 chăng hạn thì giá trị đó không thể chọn trong phạm vi Integer hay Word. Ma trận c 
sẽ phải khai báo là ma trận Longlnt và giá trị hằng số maxC trong các chương trình trên phải đồi 
lại là 300 * 299 + 1 - điều đó có thể gây ra nhiều phiền toái, chẳng hạn như vấn đề lãng phí bộ nhớ. 
Đề khắc phục, người ta có thê cài đặt bằng danh sách kề kèm trọng số hoặc sử dụng những kỹ thuật 
đánh dấu khéo léo trong từng trường hợp cụ thê. Tuy nhiên có một điều chắc chắn: khi đồ thị cho số 
đỉnh cũng như trọng số các cạnh vào khoảng 300 thì các trọng số c[u, v] trong thuật toán Floyd 
và các nhãn d[v] trong ba thuật toán còn lại chắc chắn không thể khai báo là Integer được. 

Xét về độ phức tạp tính toán, nếu cài đặt như trên, thuật toán Ford-Bellman có độ phức tạp là O(n’), 
thuật toán Dijkstra là OC). thuật toán tói ưu nhãn theo thứ tự tôpô là O(n’) còn thuật toán Floyd là 
O(n). Tuy nhiên nếu sử dụng danh sách kè, thuật toán tối ưu nhãn theo thứ tự tôpô sẽ có độ phức 
tạp tính toán là O(m). Thuật toán Dijkstra kết hợp với cấu trúc dř liệu Heap có độ phức tạp 
O(max(n, m).logn). 

Khác với một bài toán đại số hay hình học có nhiều cách giải thì chỉ cần nắm vững một cách cũng 
có thể coi là đạt yêu cầu, những thuật toán tìm đường đi ngắn nhất bộc lộ rất rõ ưu, nhược điểm 
trong từng trường hợp cụ thể (Ví dụ như số đỉnh của đồ thị quá lớn làm cho không thể biểu diễn 
bằng ma trận trọng số thì thuật toán Floyd sẽ gặp khó khăn, hay thuật toán Ford-Bellman làm việc 
khá chậm). Vì vậy yêu cầu trước tiên là phải hiểu bản chất và thành thạo trong việc cài đặt tất cả các 
thuật toán trên đề có thể sử dụng chúng một cách uyên chuyên trong từng trường hợp cụ thể. Những 
bài tập sau đây cho ta thấy rõ điều đó. 

Bài tập 

Bài 1 

Giải thích tại sao đối với đồ thị sau, cần tìm đường đi dài nhất từ đỉnh 1 tới đỉnh 4 lại không thé 


dùng thuật toán Dijkstra được, cứ thử áp dụng thuật toán Dijkstra theo từng bước xem sao: 
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Bài 2 

Trên mặt phẳng cho n đường tròn (n < 2000), đường tròn thứ 1 được cho bởi bộ ba số thực (Xi Y¡, 
Ri OG Y;) là toa độ tâm và R; là bán kính. Chi phí di chuyền trên mỗi đường tròn bằng 0. Chi phí 
di chuyển giữa hai đường tròn bằng khoảng cách giữa chúng. Hãy tìm phương án di chuyển giữa 
hai đường tròn S, F cho trước với chỉ phí ít nhất. 

Bài 3 

Cho một dãy n số nguyên A[1], A[2]. ..., A[n] (n < 10000; 1 < A[ï] < 10000). Hãy tìm một dãy con 
gồm nhiều nhất các phần tử của dãy đã cho mà tổng của hai phần tử liên tiếp là số nguyên tó. 

Bài 4 

Một công trình lớn được chia làm n công đoạn đánh SỐ 1, 2, ..., n. Công đoạn i phải thực hiện mất 
thời gian t[i]. Quan hệ giữa các công đoạn được cho bởi bảng al j]: ali, j] = TRUE < công đoạn j 
chỉ được bắt đầu khi mà công việc ¡ đã xong. Hai công đoạn độc lập nhau có thê tiến hành song 
song, hãy bố trí lịch thực hiện các công đoạn sao cho thời gian hoản thành cả công trình là sớm nhất, 
cho biết thời gian sớm nhất đó. 

Bài 5 

Cho một bảng các số tự nhiên kích thước mxn (1 < m, n < 100). Từ một ô có thể đi chuyển sang 
một ô kề cạnh với nó. Hãy tìm một cách đi từ ô (x, y) ra một ô biên sao cho tông các số ghi trên các 


ô đi qua là cực tiêu. 
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§9. BÀI TOÁN CÂY KHUNG NHỎ NHÁT 


9.1. BÀI TOÁN CÂY KHUNG NHỎ NHÁT 


Cho G = (V, E) là đồ thị vô hướng liên thông có trọng số, với một cây khung T của G, ta gọi trọng 
số của cây T là tổng trọng số các cạnh trong T. Bài toán đặt ra là trong số các cây khung của G, chỉ 
ra cây khung có trọng số nhỏ nhất, cây khung như vậy được gọi là cây khung (hay cây bao trùm) 
nhỏ nhất của đồ thị, và bài toán đó gọi là bài toán cây khung nhỏ nhất. Sau đây ta sẽ xét hai thuật 
toán thông dụng để giải bài toán cây khung nhỏ nhất của đơn đồ thị vô hướng có trọng số. 
Input: file văn bản MINTREE.INP: 
e Dòng 1: Ghi hai số số đỉnh n (< 100) và số cạnh m của đồ thị cách nhau ít nhất 1 dấu cách 
e m dòng tiép theo, mỗi dòng có dạng 3 SỐ u, v, c[u, v] cách nhau ít nhất 1 dấu cách thê hiện 
đồ thị có cạnh (u, v) và trọng số cạnh đó là chu, v]. (c[u, v] là số nguyên có giá trị tuyệt đối 
không quá 100). 
Output: file văn bản MINTREE.OUT ghi các cạnh thuộc cây khung và trọng số cây khung 


MINTREE.INP | MINTREE.OUT 
69 Minimal spanning tree: 
121 (2, 4) =1 
131 (3, 6) =1 
241 (2, 5) =1 
232 (1, 3) =1 
251 (1, 2) =1 
351 Weight = 5 
361 

452 

362 


9.2. THUẬT TOÁN KRUSKAL (JOSEPH KRUSKAL - 1956) 


Thuật toán Kruskal dựa trên mô hình xây dựng cây khung bằng thuật toán hợp nhất (§5), chỉ có 
điều thuật toán không phải xét các cạnh với thứ tự tuỳ ý mà xét các cạnh theo thứ tự đã sắp xếp: Với 
đồ thị vô hướng G = (V, E) có n đỉnh. Khởi tạo cây T ban đầu không có cạnh nào. Xét tất cả các 
cạnh của đồ thị từ cạnh có trọng số nhỏ đến cạnh có trọng số lớn, nếu việc thêm cạnh đó vào T 
không tạo thành chu trình đơn trong T thì kết nạp thêm cạnh đó vào T. Cứ làm như vậy cho tới 
khi: 

Hoặc đã kết nạp được n - 1 cạnh vào trong T thì ta được T là cây khung nhỏ nhất 

Hoặc chưa kết nạp đủ n - 1 cạnh nhưng hễ cứ kết nạp thêm một cạnh bất kỳ trong só các cạnh còn 
lại thì sẽ tạo thành chu trình đơn. Trong trường hợp này đồ thị G là không liên thông, việc tìm kiếm 
cây khung thất bại. 


Như vậy có hai vấn đề quan trọng khi cài đặt thuật toán Kruskal: 
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Thứ nhất, làm thế nào để xét được các cạnh từ cạnh có trọng số nhỏ tới cạnh có trọng số lớn. Ta có 
thê thực hiện bằng cách sắp xếp danh sách cạnh theo thứ tự không giảm của trọng số, sau đó duyệt 
từ đầu tới cuối danh sách cạnh. Trong trường hợp tông quát, thuật toán HeapSort là hiệu quả nhất 
bởi nó cho phép chọn lần lượt các cạnh từ cạnh trọng nhỏ nhất tới cạnh trọng số lớn nhất ra khỏi 
Heap và có thể xử lý (bỏ qua hay thêm vào cây) luôn. 

Thứ hai, làm thế nào kiểm tra xem việc thêm một cạnh có tạo thành chu trình đơn trong T hay 
không. Để ý rằng các cạnh trong T ở các bước sẽ tạo thành một rừng (đồ thị không có chu trình 
đơn). Muốn thêm một cạnh (u, v) vào T mà không tạo thành chu trình đơn thì (u, v) phải nối hai cây 
khác nhau của rừng T, bởi nếu u, v thuộc cùng một cây thì sẽ tạo thành chu trình đơn trong cây đó. 
Ban đầu, ta khởi tạo rừng T gồm n cây, mỗi cây chỉ gồm đúng một đỉnh, sau đó, mỗi khi xét đến 
cạnh nối hai cây khác nhau của rừng T thì ta kết nạp cạnh đó vào T, đồng thời hợp nhất hai cây 
đó lại thành một cây. 

Nếu cho mỗi đỉnh v trên cây một nhãn Lab[v] là số hiệu đỉnh cha của đỉnh v trong cây, trong trường 
hợp v là gốc của một cây thì Lab[v] được gán một giá trị âm. Khi đó ta hoàn toàn có thê xác định 
được gốc của cây chứa đỉnh v bằng hàm GetRoot dưới đây: 


function GetRoot(veV): eV; 


begin 
while Lab[v] > 0 do v := Lab[v]; 
GetRoot := v; 

end; 


Vậy để kiểm tra một cạnh (u, v) có nối hai cây khác nhau của rừng T hay không? ta có thể kiểm tra 
GetRoot(u) có khác GetRoot(v) hay không, bởi mỗi cây chỉ có duy nhất một góc. 
Đề hợp nhất cây gốc rı và cây gốc rz thành một cây, ta lưu ý rằng mỗi cây ở đây chỉ dùng đề ghi 


nhận một tập hợp đỉnh thuộc cây đó chứ cấu trúc cạnh trên cây thế nào thì không quan trọng. Vậy 


đê hợp nhât cây gôc rı và cây gôc ra, ta chỉ việc coi rı là nút cha của r; trong cây băng cách đặt: 


Lab[r›] := rı. 


Hình 77: Hai cây gốc r; và r, và cây mới khi hợp nhất chúng 
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Tuy nhiên, để thuật toán làm việc hiệu quả, tránh trường hợp cây tạo thành bị suy biến khiến cho 
hàm GetRoot hoạt động chậm, người ta thường đánh giá: Đề hợp hai cây lại thành một, thì gốc cây 
nào ít nút hơn sẽ bị coi là con của gốc cây kia. 

Thuật toán hợp nhất cây gốc rı và cây gốc rə có thể viết như sau: 


{Count [k] là số đỉnh của cây gốc k} 
procedure Union(r1, r2 e V); 
begin 
if Count[r1] < Count[r2] then (Hợp nhất thành cây gốc r2} 
begin 
Count[r2] := Count[r1] + Count[r2]; 
Lab[r1] := r2; 
end 
else {Họp nhát thành cây góc r1} 
begin 
Count[r1] := Count[r1] + Count[r2]; 
lab[r2] := r1; 
end; 
end; 


Khi cài đặt, ta có thể tận dụng ngay nhãn Lab[r] để lưu số đỉnh của cây góc r, bởi như đã giải thích 
ở trên, Lab[r] chỉ cần mang một giá trị âm là đủ, vậy ta có thể coi Lab[r] = -Count{r] với r là gốc 
của một cây nào đó. 

procedure Union(r1, r2 e V); {Hợp nhất cây gốc rı với cây gốc rz} 

begin 


x := Lab[rl] + Lab[r2]; {-x là tổng sô nút của cả hai cây) 
if Lab[r1] > Lab[r2] then (Cây gốc r1 ít nút hơn cây gốc r2, hợp nhất thành cây gốc r2} 


begin 
Lab[r1] := r2; {r; là cha của rı} 
Lab[r2] := x; Jr: là gốc cây mới, -Lab[r2] giò đây là số nút trong cây mới] 

end 

else (Hợp nhất thành cây gốc r1} 

begin 
1Lab[rl] := x; {rı là gốc cây mới, -Lab[r1] giờ đây là số nút trong cây mới] 
lab[r2] := r1; {cha của r) sẽ là rı} 

end; 

end; 


Mô hình thuật toán Kruskal: 


for VkeV do Lab[k] := -1; 
for Vin, v)eE (theo thứ tự từ cạnh trọng số nhỏ tới cạnh trọng số lớn) do 


begin 
ri := GetRoot(u); r2 := GetRoot (v); 
if r1 # r2 then {(u, v) nối hai cây khác nhau) 
begin 


<Kết nạp (u, v) vào cây, nếu đã đủ n - 1 cạnh thì thuật toán dừng> 
Union(rl, r2); (Hợp nhất hai cây lại thành một cây) 
end; 


program Minimal Spanning Tree by Kruskal; 
const 

InputFile = 'MINTREE.INP'; 

OutputFile = 'MINTREE.OUT'; 


maxV = 100; 
maxE = (maxV - 1) * maxV div 2; 
type 


TEdge = record (Cấu trúc một cạnh) 
u, v, c: Integer; (Hai đỉnh và trọng số} 
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Mark: Boolean; (Đánh dấu có được kết nạp vào cây khung hay không) 


end; 
var 
e: array[1..maxE] of TEdge; {Danh sách cạnh} 
lab: array[l..maxV] of Integer; {Lab[v] là đỉnh cha của v, nếu v là gốc thì Lab[v] = - số con cây gốc v} 


n, m: Integer; 
Connected: Boolean; 


procedure ILoadGraph; 
var 
i: Integer; 
f: Text; 
begin 
Assign(f, InputFile); Reset(f) ; 
Readln (f, n, m); 
for i := 1 to m do 
with e[i] do 
Readln (f, u, v, c); 
Close (f); 
end; 


procedure Init; 
var 
i: Integer; 
begin 
for 1 : 
for i : 
end; 


to n do Lab[i] := -1; {Rùng ban đầu, mọi đỉnh là gốc của cây gồm đúng một nút} 


=1 
= 1 to m do e[i].Mark := False; 


function GetRoot(v: Integer): Integer; (lấy gốc của cây chứa v} 


begin 
while Iab[v] > 0 do v := Lab[v]; 
GetRoot := v; 

end; 


procedure Union(r1, r2: Integer); (Hợp nhất hai cây lại thành một cây} 
var 

x: Integer; 
begin 

x := Lab[r1] + Lab[r2]; 

if Lab[r1] > Lab[r2] then 


begin 
Lab[r1] := r2; 
lab[r2] := x; 

end 

else 

begin 
Lab[r1] := x; 
lab[r2] := r1; 

end; 

end; 


procedure AdjustHeap (root, last: Integer); {Vun thành đống, dùng cho HeapSort} 


var 
Key: TEdge; 
child: Integer; 
begin 


Key := e[root]; 
while root * 2 <= Last do 
begin 
child := root * 2; 
if (child < Last) and (e[child + 1].c < e[child].e) 
then Inc (child); 
if Key.c <= e[child].c then Break; 
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e[root] := e[child]; 
root := child; 
end; 
e[root] := Key; 
end; 


procedure Kruskal; 
var 
i, r1, r2, Count, a: Integer; 
tmp: TEdge; 
begin 
Count := 0; 
Connected := False; 
for i := m div 2 downto 1 do AdjustHeap(i, m); 
for i := m - 1 downto 0 do 
begin 
tmp := e[1]; el := e[i + 1]; e[i † 1] := tmp; 
AdjustHeap(1, i); 
ri := GetRoot(e[i + 1].u); r2 := 6etRoot(e[i + 1].v); 
if r1 <> r2 then (Cạnh e[i + 1] nối hai cây khác nhau) 
begin 
e[i + 1].Mark := True; (Kết nạp cạnh đó vào cây} 
Inc(Count); (Đếm số cạnh) 
if Count = n - 1 then (Nếu đã đủ số thì thành công) 


begin 
Connected := True; 
Exit; 
end; 
Union(r1, r2); (Hợp nhất hai cây thành một cây) 


end; 
end; 
end; 


procedure PrintResult; 
var 
i, Count, W: Integer; 
f: Text; 
begin 
Assign(f, OutputFile); Rewrite (f); 
if not Connected then 
WriteLn(f, 'Error: Graph is not connected') 
else 
begin 
WriteLn(f, 'Minimal spanning tree: '); 
Count := 0; 
W := 0; 
for i := 1 to m do (Duyệt danh sách cạnh} 
with e[i] do 
begin 
if Mark then (Lọc ra những cạnh đã kết nạp vào cây khung} 
begin 
Writeln(f, '(',u, ', ',v, lef, œ); 
Inc (Count) ; 
W:=Wtc; 
end; 
if Count = n - 1 then Break; (Cho tới khi đủ n - 1 cạnh) 
end; 
Writeln(f, 'Weight = ', W); 
end; 
Close (£) ; 
end; 


begin 
1oadGraph; 
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Tnit; 

Kruskal; 

PrintResult; 
end. 


Xét về độ phức tạp tính toán, ta có thê chứng minh được răng thao tác GetRoot có độ phức tạp là 
O(logan), còn thao tác Union là O(1). Giả sử ta đã có danh sách cạnh đã sắp xếp rồi thì xét vòng lặp 
dựng cây khung, nó duyệt qua danh sách cạnh và với mỗi cạnh nó gọi 2 lần thao tác GetRoot, vậy 
thì độ phức tạp là O(mlog;n), nếu đồ thị có cây khung thì m > n-1 nên ta thấy chỉ phí thời gian chủ 
yếu sẽ nằm ở thao tác sắp xếp danh sách cạnh bởi độ phức tạp của HeapSort là O(mlogzm). Vậy độ 
phức tạp tính toán của thuật toán là O(mlog;m) trong trường hợp xấu nhất. Tuy nhiên, phải lưu ý 
rằng để xây dựng cây khung thì ít khi thuật toán phải duyệt toàn bộ danh sách cạnh mà chỉ một 
phần của danh sách cạnh mà thôi. 


9.3. THUẬT TOÁN PRIM (ROBERT PRIM - 1957) 


Thuật toán Kruskal hoạt động chậm trong trường hợp đồ thị dày (có nhiều cạnh). Trong trường hợp 
đó người ta thường sử dụng phương pháp lân cận gần nhất của Prim. Thuật toán đó có thể phát biểu 
hình thức như sau: 

Đơn đồ thị vô hướng G = (V, E) có n đỉnh được cho bởi ma trận trong số C. Qui ước c[u, v] = +œ 
nếu (u, v) không là cạnh. Xét cây T trong G và một đỉnh v, gọi khoảng cách từ v tới T là trọng số 
nhỏ nhất trong số các cạnh nối v với một đỉnh nào đó trong T: 

d[v] = min{c[u, v] | ueT} 

Ban đầu khởi tạo cây T chỉ gồm có mỗi đỉnh {1}. Sau đó cứ chọn trong số các đỉnh ngoài T ra một 
đỉnh gần T nhất, kết nạp đỉnh đó vào T đồng thời kết nạp luôn cả cạnh tạo ra khoảng cách gần nhất 
đó. Cứ làm như vậy cho tới khi: 

Hoặc đã kết nạp được tất cå n đỉnh thì ta có T là cây khung nhỏ nhất 

Hoặc chưa kết nạp được hết n đỉnh nhưng mọi đỉnh ngoài T đều có khoảng cách tới T là +œ. Khi đó 
đồ thị đã cho không liên thông, ta thông báo việc tìm cây khung thất bại. 

Về mặt kỹ thuật cài đặt, ta có thể làm như sau: 

Sử dụng mång đánh dấu Free. Free[v] = TRUE nếu như đỉnh v chưa bị kết nạp vào T. 

Gọi d[v] là khoảng cách từ v tới T. Ban đầu khởi tạo d[1] = 0 còn d[2] = d[3] = ... = d[n] = +œ. Tại 


mỗi bước chọn đỉnh đưa vào T, ta sẽ chọn đỉnh u nào ngoài T và có d[u] nhỏ nhất. Khi kết nạp u 
vào T rồi thì rõ ràng các nhãn d[v] sẽ thay đổi: d[v]„ø¡ := min(d[v]c¡, c[u, v]). Vấn đề chỉ có vậy 


(chương trình rất giống thuật toán Dijkstra, chỉ khác ở công thức tői ưu nhãn). 


program Minimal Spanning Tree by Prim; 
const 
InputFile = 'MINTREE.INP'; 
OutputFile = 'MINTREE.OUT'; 
max = 100; 
maxC = 10000; 
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var 
c: array[1..max, 1..max] of Integer; 
d: array[1..max] of Integer; 
Free: array[1..max] of Boolean; 
Trace: array[1..max] of Integer; {Vết, Trace[v] là đỉnh cha của v trong cây khung nhỏ nhất} 
n, m: Integer; 
Connected: Boolean; 


procedure LoadGraph; (Nhập dò thi} 
var 
i, u, v: Integer; 
f: Text; 
begin 
Assign(f, InputFile); Reset(f) ; 
Readln (f, n, m); 
for u := 1 to n do 
for v := 1 to n do 
if u = v then c[u, v] := 0 else c[u, v] := maxC; {Khói tạo ma trận trọng số) 
for i := 1 to m do 
begin 
Readln (f, u, v, c[u, v]); 
c[v, u] := c[u, v]; 
end; 
Close (f); 
end; 


procedure Init; 
var 
v: Integer; 
begin 
d[1] := 0; (Đỉnh 1 có nhãn khoảng cách là 0} 
for v := 2 to n do dịv] := maxC; {Các đỉnh khác có nhãn khoảng cách +œ} 
FillChar (Free, Size0f (Free), True); {Cây T ban đầu là rỗng} 
end; 


procedure Prim; 
var 
k, i, u, v, min: Integer; 
begin 
Connected := True; 
for k := 1 to n do 
begin 
u := 0; min := maxC; {Chọn đỉnh u chưa bị kết nạp có d[u] nhỏ nhất} 
for i := 1 to n do 
if Free[i] and (d[i] < min) then 
begin 
min := d[i]; 
u =i; 
end; 
if u = 0 then {Nếu không chọn được u nào có d[u] < +œ thì đồ thị không liên thông} 
begin 
Connected := False; 
Break; 
end; 
Free[u] := False; {Nếu chọn được thì đánh dấu u đã bị kết nạp, lặp lần 1 thì dĩ nhiên u = 1 bởi d[1] = 0} 
for v := 1 to n do 
if Free[v] and (d[v] > c[u, v]) then {Tính lại các nhãn khoảng cách d[v] (v chưa kết nạp)} 
begin 
dịv] := c[u, v]; {Tếi ưu nhãn dv theo công thức} 
Trace[v] := u; {Lưu vết, đỉnh nối với v cho khoảng cách ngắn nhất là u} 
end; 
end; 
end; 
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procedure PrintResult; 
var 
v, W: Integer; 
f: Text; 
begin 
Assign(f, OutputFile); Rewrite (f); 
if not Connected then {Nếu đồ thị không liên thông thì thất bại} 
Writeln(f, 'Error: Graph is not connected') 
else 
begin 
Writeln(f, 'Minimal spanning tree: '); 
W := 0; 
for v := 2 to n do {Cây khung nhỏ nhất gồm những canh (v, Trace|v])} 
begin 
Writeln(f, '(', Trace[v], ', ', v, ') = ', c[Trace|v], v]); 
W := W + c[Trace[v], v]; 
end; 
WriteLn(f, 'Weight = ', W); 
end; 
Close (f); 
end; 


begin 
LoadGraph; 
Init; 
Prim; 
PrintResult; 
end. 


Xét vè đô phức tạp tính toán, thuật toán Prim có độ phức tạp là Omn’). Tương tự thuật toán Dijkstra, 
nếu kết hợp thuật toán Prim với cấu trúc Heap sẽ được một thuật toán với độ phức tạp 
O((m+n)logn). Tuy nhiên, nếu đồ thị có đỉnh lớn và số cạnh nhỏ, người ta thường sử dụng thuật 
toán Kruskal để tìm cây khung chứ không dùng thuật toán Prim với cầu trúc Heap. 

Bài tập 

Bài 1 

So sánh hiệu quả của thuật toán Kruskal và thuật toán Prim về tốc độ. 

Bài 2 

Trên một nèn phăng với hệ toạ độ Decattes vuông góc đặt n máy tính, máy tính thứ i được đặt ở toạ 
độ (X;, Yi). Cho phép nối thêm các dây cáp mạng nối giữa từng cặp máy tính. Chi phí nối một dây 
cáp mạng tỉ lệ thuận với khoảng cách giữa hai máy cần nối. Hãy tìm cách nối thêm các dây cáp 
mạng đề cho các máy tính trong toàn mạng là liên thông và chỉ phí nói mạng là nhỏ nhất. 

Bài 3 

Tương tự như bài 2, nhưng ban đầu đã có sẵn một số cặp máy nối rồi, cần cho biết cách nối thêm ít 
chỉ phí nhất. 

Bài 4 

Hệ thống điện trong thành phô được cho bởi n trạm biến thế và các đường dây điện nối giữa các cặp 
trạm biến thé. Mỗi đường dây điện e có độ an toàn là p(e). ở đây 0 < p(e) < I. Độ an toàn của cả 
lưới điện là tích độ an toàn trên các đường dây. Ví dụ như có một đường dây nguy hiểm: p(e) = 1% 


thì cho dù các đường dây khác là tuyệt đối an toàn (độ an toàn = 100%) thì độ an toàn của mạng 
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cũng rất thấp (1%). Hãy tìm cách bỏ đi một số dây điện để cho các trạm biến thế vẫn liên thông và 
độ an toàn của mạng là lớn nhất có thể. 

Bài 5 

Hãy thử cài đặt thuật toán Prim với câu trúc dř liệu Heap chứa các đỉnh ngoài cây, tương tự như đối 


với thuật toán Dijkstra. 
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§10. BÀI TOÁN LUONG CỰC ĐẠI TRÊN MẠNG 


Ta gọi mạng (network) là một đồ thị có hướng G = (V, E), trong đó có duy nhất một đỉnh A không 
có cung đi vào gọi là điểm phát (source), duy nhất một đỉnh B không có cung đi ra gọi là đỉnh thu 
(sink) và mỗi cung e = (u, v) e E được gán với một số không âm c(e) = c[u, v] gọi là khả năng 
thông qua của cung đó (capacity). Đề thuận tiện cho việc trình bày, ta qui ước rằng nếu không có 
cung (u, v) thì khả năng thông qua c{[u, v] của nó được gán bằng 0. 

Nếu có mạng G = (V, E). Ta gọi luồng (flow) f trong mạng G là một phép gắn cho mỗi cung e = (u, 
v) e E một số thực không âm f(e) = ffu, v] gọi là luồng trên cung e, thoả mãn các điều kiện sau: 
Luồng trên mỗi cung không vượt quá khả năng thông qua của nó: 0 < fu v] < c[u, v] (Y (u, v) € E) 
Với mọi đỉnh v không trùng với đỉnh phát A và đỉnh thu B, tổng luồng trên các cung đi vào v bằng 


tổng luồng trên các cung đi ra khỏi v: Kë: [u,v]= bD Tv. w]. Trong đó: 


uer (v) weT”(v) 
I(v)= fueV | (u,v) e E} 
T+v)= (weV| (v,w)c E} 
Giá trị của một luồng là tông luòng trên các cung đi ra khỏi đỉnh phát = tổng luồng trên các cung 


đi vào đỉnh thu. 


Hình 78: Mạng với các khả năng thông qua (1 phát, 6 thu) và một luồng của nó với giá trị 7 
10.1. BAI TOAN 
Cho mạng G = (V, E). Hãy tìm luồng f* trong mạng với giá trị luồng lớn nhất. Luồng như vậy gọi 
là luồng cực đại trong mạng và bài toán này gọi là bài toán tìm luồng cực đại trên mạng. 


10.2. LÁT CÁT, ĐƯỜNG TĂNG LUONG, ĐỊNH LÝ FORD - FULKERSON 


10.2.1. Định nghĩa: 

Ta gọi lát cắt (X, Y) là một cách phân hoạch tập đỉnh V của mạng thành hai tập rời nhau X và Y, 
trong đó X chứa đỉnh phát và Y chứa đỉnh thu. Khả năng thông qua của lát cắt (X, Y) là tông tất cả 
các khả năng thông qua của các cung (u, v) có u e X và v e Y. Lát cắt với khả năng thông qua nhỏ 


nhất gọi là lát cắt hẹp nhất. 
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10.2.2. Định lý Ford-Fulkerson: 

Giá trị luồng cực đại trên mạng đúng bằng khả năng thông qua của lát cắt hẹp nhất. Việc chứng 
minh định lý Ford- Fulkerson đã xây dựng được một thuật toán tìm luồng cực đại trên mạng: 

Giả sử f là một luồng trong mạng G = (V, E). Từ mạng G = (V, E) ta xây dựng đồ thị có trọng số Gr 
= (V, Eş như sau: 

Xét những canh e = (u, v) € E (c[u, v] > 0): 

Nếu ffu, v] < c[u, v] thì ta thêm cung (u, v) vào Er với trọng số chu, v] - f[u, v], cung đó gọi là cung 
thuận. Về ý nghĩa, trọng số cung này cho biết còn có thê tăng luồng f trên cung (u, v) một lượng 
không quá trọng số đó. 

Xét tiếp nếu như ffu, v] > 0 thì ta thêm cung (v, u) vào Er với trọng số f[u, v], cung đó gọi là cung 
nghịch. Về ý nghĩa, trọng số cung này cho biết còn có thể giảm luồng f trên cung (u, v) một lượng 


không quá trọng số đó. 


Đồ thị Gr được gọi là đồ thị tăng luồng. 


Hình 79: Mạng G, luồng trên các cung (1 phát, 6 thu) và đồ thị tăng luồng tương ứng 
Giả sử P là một đường đi cơ bản từ đỉnh phát A tới đỉnh thu B. Gọi A là giá trị nhỏ nhất của các 
trọng số của các cung trên đường đi P. Ta sẽ tăng giá trị của luồng f bằng cách đặt: 
e f[u, vị := f[u, v] + A, nếu (u, v) là cung trong đường P và là cung thuận 
f[v, u] := f[v, u] - A, nếu (u, v) là cung trong đường P và là cung nghịch 
Còn luòng trên những cung khác giữ nguyên 
Có thê kiểm tra luồng f mới xây dựng vẫn là luồng trong mạng và giá trị của luồng f mới được tăng 
thêm A so với giá trị luồng f cũ. Ta gọi thao tác biến đối luồng như vậy là tăng luồng dọc đường P, 
đường đi cơ bản P từ A tới B được gọi là đường tăng luồng. 
Ví dụ: với đồ thị tăng luồng Gf như trên, giả sử chọn đường đi (1, 3, 4, 2, 5, 6). Giá trị nhỏ nhất của 
trọng số trên các cung là 2, vậy thì ta sẽ tăng các giá trị f[1, 3]). f3. 4], f[2. 5]. f[5, 6] lên 2, (do các 
cung đó là cung thuận) và giảm giá trị f[2, 4] đi 2 (do cung (4, 2) là cung nghịch). Được luồng mới 


mang giá trị 9. 
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Hình 80: Luồng trên mạng G trước và sau khi tăng 


Đến đây ta có thể hình dung ra được thuật toán tìm luồng cực đại trên mạng: khởi tạo một luồng bát 
kỳ, sau đó cứ tăng luồng dọc theo đường tăng luồng, cho tới khi không tìm được đường tăng 
luồng nữa 

Vậy các bước của thuật toán Om luồng cực đại trên mạng có thể mô tả như sau: 

Bước 1: Khởi tạo: 

Một luồng bất kỳ trên mạng, chẳng hạn như luồng 0 (luồng trên các cung đều bằng 0), sau đó: 

Bước 2: Lặp hai bước sau: 

Tìm đường tăng Iuëng P đối với luồng hiện có = Tìm đường đi cơ bản từ A tới B trên đồ thị tăng 
luồng, nếu không tìm được đường tăng luông thì bước lặp kết thúc. 

Tăng luồng dọc theo đường P 


Bước 3: Thông báo giá trị luồng cực đại tìm được. 
10.3. CÀI ĐẶT 


Input: file văn bản MAXFLOW.INP. Trong đó: 
e Dòng 1: Chúa số đỉnh n ( < 100), số cạnh m của đồ thị, đỉnh phát A, đỉnh thu B theo đúng 
thứ tự cách nhau ít nhất một dấu cách 
e m dòng tiếp theo, mỗi dòng có dạng ba số u, v, c[u, v] cách nhau ít nhất một dấu cách thể 
hiện có cung (u, v) trong mạng và khả năng thông qua của cung đó là c[u, v] (c[u, v] là số 
nguyên dương không quá 100) 
Output: file văn bản MAXFLOW.OUT, ghi luồng trên các cung và giá tri luồng cực đại tìm được 


MAXFLOW.INP || MAXPLOW. OUT 
6816 ZIL, 2) =5 
125 ZIL, 3) =4 
135 f(2, 4) =3 
246 f(2, 5) =2 
253 f(3, 4) =3 
343 f(3, 5) =1 
351 f(4, 6) = 6 
466 f(5, 6) =3 
566 Max Flow: 9 
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Chú ý rằng tại mỗi bước có nhiều phương án chọn đường tăng luồng, hai cách chọn khác nhau có 
thể cho hai luồng cực đại khác nhau nhưng về mặt giá trị thì tất cả các luồng xây dựng được theo 
cách trên sẽ có cùng giá trỊ cực đại. 

Cài đặt chương trình tìm luồng cực đại dưới đây rất chân phương, từ ma trận những khả năng thông 
qua c và luồng f hiện có (khởi tạo f là luồng 0), nó xây dựng đồ thị tăng luồng Gf bằng cách xây 
dựng ma trận cf như sau: 

cf[u, v] = trọng số cung (u, v) trên đồ thị G; néu như (u, v) là cung thuận 

cf[u, v] = - trọng số cung (u, v) trên đồ thị Gr nếu như (u, v) là cung nghịch 

cf[u, v] = +% nếu như (u, v) không phải cung của Gr 

cf gần giống như ma trận trọng số của Gs chỉ có điều ta đổi dấu trọng số nếu như gặp cung nghịch. 
Câu hỏi đặt ra là nếu như mạng đã cho có những đường hai chiều (có cả cung (u, v) và cung (v, u) - 
điều này xảy ra rất nhiều trong mạng lưới giao thông) thì đồ thị tăng luồng rất có thể là đa đồ thị 
(giữa u, v có thể có nhiều cung từ u tới v). Ma trận cf cũng gặp nhược điểm như ma trận trọng SỐ: 
không thể biểu diễn được đa đồ thị, tức là nếu như có nhiều cung nối từ u tới v trong đồ thị tăng 
luồng thì ta đành chấp nhận bỏ bót mà chỉ giữ lại một cung. Rất may cho chúng ta là điều đó 
không làm sai lệch đi mục đích xây dựng đồ thị tăng luỗng: chỉ là tìm một đường đi từ đỉnh phát A 
tới đỉnh thu B mà thôi, còn đường nào thì không quan trọng. 

Sau đó chương trình tìm đường đi từ đỉnh phát A tới đỉnh thu B trên đồ thị tăng luồng bằng thuật 
toán tìm kiếm theo chiều rộng, nếu tìm được đường đi thì sẽ tăng luồng dọc theo đường tăng 


luồng... 


program Max Flow; 

const 
InputFile = 'MAXFLOW.INP'; 
OutputFile = 'MAXFIOW.OUT'; 


max = 100; 
maxC = 10000; 
var 


c, f, cf: array[1..max, 1..max] of Integer; {c: khả năng thông, f: Luồng} 
Trace: array[1..max] of Integer; 
n, A, B: Integer; 


procedure Enter; (Nhập mạng} 


var 
m, i, u, v: Integer; 
fi: Text; 

begin 


Assign(fi, InputFile); Reset (fi); 
FillChar(c, Size0f(c), 0); 
ReadIn (fi, n, m, A, B); 
for i := 1 to m do 
ReadIn (fi, u, v, chu, v]); 
Close (f1) ; 
end; 


procedure Create6f; {Tìm đồ thị tăng luồng, tức là xây dựng cf từ c và f} 
var 
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u, V: Integer; 
begin 
for u := 1 to n do 
for v := 1 to n do cf[u, v] := maxC; 
for u := 1 to n do 
for v := 1 to n do 
if c[u, v] > 0 then {Nếu u, v là cung trong mạng} 
begin 
if f[u, v] < c[u, v] then cf[u, v] := c[u, v] - f[u, v]; {Đặt cung thuận} 
if f[u, v] > 0 then cf[v, u] := -f[u, v]; {Đặt cung nghịch} 
end; 
end; 


{Thủ tục này tìm một đường đi từ A tới B bằng BFS, trả vè TRUE néu có đường, FALSE néu không có đường} 
function FindPath: Boolean; 
var 
Queue: array[1..max] of Integer; {Hàng đợi dùng cho BFS} 
Free: array[1..max] of Boolean; 
u, v, First, Last: Integer; 
begin 
FillChar (Free, Size0f (Free), True); 
First := 1; Last := 1; Queue[l] := A; {Queue chỉ gồm một đỉnh phát A} 
Free[A] := False; {đánh dáu A} 
repeat 
u := 0ueue[First]; Inc(First); (Lấy u khỏi Queue} 
for v := 1 to n do 
if Free[v] and (cf[u, v] <> maxC) then {Xét v chưa đánh dấu kề với u} 
begin 
Trace[v] := u; {Luu vết đường đi A > ... > u > v} 
if v =B then (v =B thì ta có đường di từ A tới B, thoát thủ tục} 


begin 
FindPath := True; Exit; 
end; 
Free[v] := False; {đánh dáu v} 
Inc (Last) ; 
Queue[last] := v; {Queue + v} 
end; 


until First > Last; {Queue rỗng} 
FindPath := False; (ở trên không Exit được thì tức là không có đường} 
end; 


{Thủ tục tăng luồng dọc theo đường tăng luồng tìm được trong FindPath} 
procedure TncFlow; 
var 
u, v, IncValue: Integer; 
begin 
{Trước hết dò đường theo vét då tìm trọng số nhỏ nhất của các cung trên đường} 
TncValue := maxC; 
v:=B; 
while v <> A do 
begin 
u := Trace[v]; {Để ý rằng | cf[u, vil là trọng số của cung (u, v) trên đồ thi tăng luồng} 
if Abs(cf[u, v]) < IncValue then IncValue := Abs(cf[u, v]); 
"su 
end; 
{Dò lại đường lần thứ hai, lần này để tăng luồng} 
v:=B; 
while v < A do 
begin 
u := Trace[v]; 
if cf[u, v] > 0 then f[u, v] := f[u, v] + IncValue {Néu (u, v) là cung thuân trên Gf} 
else f[v, u] := f[v, u] - IncValue; {Néu (u, v) là cung nghich trên Gf} 
V:ZU; 
end; 
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end; 


procedure PrintResult; {In luồng cực đại tìm được} 


var 
u, v, m: Integer; 
fo: Text; 

begin 
Assign (fo, OutputFile); Rewrite (fo) ; 
m := 0; 


for u := 1 to n do 
for v := 1 to n do 
if c[u, v] > 0 then {Nếu có cung (u, v) trên mạng thì in ra giá trị luồng f gán cho cung đó} 


begin 
Writeln(fo, 'f(', u, ', ',v, ') = ', flu, vị); 
if u =A then m := m + f[A, v]; {Giá trị luồng cực đại = tổng luồng phát ra từ A} 
end; 
WriteLn(fo, 'Max Flow: ', m); 
Close (fo) ; 
end; 
begin 


Enter; (Nhập dữ liệu) 

FillChar(f, Size0f(f), 0); (Khởi tạo luỗổng 0} 

repeat (Bước lặp) 
CreateGf; (Dụng đổ thị tăng luồng) 
if not FindPath then Break; (Nếu không tìm được đường tăng luồng thì thoát ngay) 
IncFlow; (Tăng luồng dọc đường tăng luỗng) 

until False; 

PrintResult; 

end. 


Bây giờ ta thử xem cách làm trên được ở chỗ nào và chưa hay ở chỗ nào ? 

Trước hết, thuật toán tìm đường bằng Breadth First Search là khá tốt, người ta đã chứng minh rằng 
nếu như đường tăng luồng được tìm bằng BFS sẽ làm giảm đáng kê số bước lặp tăng luồng so với 
DES. 

Nhưng có thể thấy rằng việc xây dựng tường minh cả đồ thị Gr thông qua việc xây dựng ma trận 
cf chỉ để làm mỗi một việc tìm đường là lãng phí, chỉ cần dựa vào ma trận khả năng thông qua c và 
luồng f hiện có là ta có thê biết được (u, v) có phải là cung trên đồ thị tăng luồng Gr hay không. 

Thứ hai, tại bước tăng luồng, ta phải dò lại hai lần đường di, một lần đề tìm trọng số nhỏ nhất của 
các cung trên đường, một lần để tăng luồng. Trong khi việc tìm trọng số nhỏ nhất của các cung trên 
đường có thê kết hợp làm ngay trong thủ tục tìm đường bằng cách sau: 

Đặt Delta[v] là trọng số nhỏ nhất của các cung trên đường đi từ A tới v, khởi tạo Delta[A] = +o. 

Tại mỗi bước từ đỉnh u thăm đỉnh v trong BFS, thì Delta[v] có thể được tính bằng giá trị nhỏ nhất 
trong hai giá trị Delta[u] và trọng số cung (u, v) trên đồ thị tăng luồng. Khi tìm được đường đi từ A 
tới B thì Delta[B] cho ta trọng số nhỏ nhất của các cung trên đường tăng luồng. 

Thứ ba, ngay trong bước tìm đường tăng luòng, ta có thể xác định ngay cung nào là cung thuận, 
cung nào là cung nghịch. Vì vậy khi từ đỉnh u thăm đỉnh v trong BES, ta có thể vẫn lưu vết đường 
đi Trace[v] := u, nhưng sau đó sẽ đôi dấu Trace[v] nếu như (u, v) là cung nghịch. 


Những cải tiễn đó cho ta một cách cài đặt hiệu quả hơn, đó là: 
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10.4. THUẬT TOÁN FORD - FULKERSON (L.R.FORD & D.R.FULKERSON 
- 1962) 


Mỗi đỉnh v được gán nhãn (Trace[v], Delta[v]). Trong đó | Trace[v] | là đỉnh liền trước v trong 


đường di từ A tới v, Trace[v] âm hay dương tuỳ theo (| Trace[v] , V) là cung nghịch hay cung 
thuận trên đồ thị tăng luồng, Delta[v] là trọng số nhỏ nhất của các cung trên đường đi từ A tới v trên 
đồ thị tăng luòng. 

Bước lặp sẽ tìm đường đi từ A tới B trên đồ thị tăng luồng đồng thời tính luôn các nhãn (Trace[v], 
Delta[v]). Sau đó tăng luồng dọc theo đường tăng luồng nếu tìm thấy. 


program Max Elo by Ford Fulkerson; 
const 
TnputFile = 'MAXFIOW.INP'; 
OutputFile = 'MAXFIOW.OUT' ; 


max = 100; 
maxC = 10000; 
var 


c, f: array[1..max, 1..max] of Integer; 
Trace: array[1..max] of Integer; 
Delta: array[1..max] of Integer; 

n, A, B: Integer; 


procedure Enter; (Nhập dữ liệu) 


var 
m, i, u, v: Integer; 
fi: Text; 

begin 


Assign (fi, InputFile); Reset (fi); 
FillChar(c, Size0f(c), 0); 
ReadIn (fi, n, m, A, B); 
for i := 1 to m do 
ReadIn (fi, u, v, c[u, v]); 
Close (f1) ; 
end; 


function Min(X, Y: Integer): Integer; 
begin 

if X < Y then Min := X else Min := Y; 
end; 


function FindPath: Boolean; 
var 
u, v: Integer; 
Queue: array[1..max] of Integer; 
First, Last: Integer; 
begin 
FillChar (Trace, Size0f (Trace), 0); {Trace[v] = 0 đồng nghĩa với v chưa đánh dấu} 
First := 1; Last := 1; Queue[1] := A; 
Trace[A] := n + 1; {Chỉ cần nó khác 0 để đánh dấu mà thôi, số dương nào cũng được cå} 
Delta[A] := maxC; {Khởi tạo nhãn} 
repeat 
u := 0ueue[First]; Ine(First); (lấy u khỏi Queue} 
for v := 1 to n do 
if Trace[v] = 0 then {Xét nhứng đỉnh v chưa đánh dấu thăm} 
begin 
if f[u, v] < c[u, v] then {Nếu (u, v) là cung thuận trên Gf và có trọng số là c[u, v] - flu, v]} 
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begin 
Trace[v] := u; (Lưu vết, Trace[v] mang dáu dương} 
Delta[v] := min(Delta[u], c[u, v] - f[u, ell: 
end 
else 
if f[y, u] > 0 then (Nếu (u, v) là cung nghịch trên Gf và có trọng số là f[v, u]} 
begin 
Trace[v] := -u; (Lưu vết, Trace[v] mang dấu âm} 
Delta[v] := min(Delta[u], f[v, u]); 
end; 
if Trace[v] <> 0 then ` (Trace) khác 0 tức là từ u có thể thăm v} 
begin 
if v = B then (Có đường tăng luồng tù A tới B} 
begin 
FindPath := True; Exit; 
end; 
Inc(Last); Queue[Last] := v; (Đua v vào Queue} 
end; 
end; 
until First > Last; {Hàng đợi Queue rỗng} 
FindPath := False; {ở trên không Exit được tức là không có đường} 
end; 


procedure IncFlow; {Tăng luồng dọc đường tăng luồng} 
var 
IncValue, u, v: Integer; 
begin 
IncValue := Delta[B]; (Nhãn Delta[B] chính là trọng số nhỏ nhất trên các cung của đường tăng luồng} 
v := B; {Truy vết đường đi, tăng luồng dọc theo đường di} 
repeat 
u := Trace[V]; {Xét cung (ul. v) trên đường tăng luồng} 
if u > 0 then f[u, v] := f[u, v] + IncValue ` Tut, v) là cung thuận thì tăng ffu, v]} 
else 
begin 
u :Z -u; 
f[v, u] := f[v, u] - IncValue; ((lu|, v) là cung nghịch thì giảm fy, |u|l} 
end; 
V:ZU; 
until v = A; 
end; 


procedure PrintResult; {In két quả} 


var 
u, v, m: Integer; 
fo: Text; 

begin 
Assign (fo, OutputFile); Rewrite (fo) ; 
m := 0; 


for u := 1 to n do 
for v := 1 to n do 
if c[u, v] > 0 then 


begin 
WriteLn(fo, 'f(', u, ', ',v, ') = ', f[u, vị); 
if u =A then m := m + f[A, v]; 
end; 
WriteLn(fo, 'Max Flow: ', m); 
Close (fo); 
end; 
begin 
Enter; 
FillChar (f, §5izeOf(f), 0); 
repeat 


if not FindPath then Break; 
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TncFlow; 
until False; 
PrintResult; 

end. 


Định lý về luồng cực đại trong mạng và lát cắt hẹp nhất: 

Luông cực đại trong mạng bằng khả năng thông qua của lát cắt hẹp nhất. Khi đã tìm được luồng cực 
đại thì theo thuật toán trên sẽ không có đường đi từ A tới B trên dé thị tăng luồng. Nếu đặt tập X 
gồm những đỉnh đến được từ đỉnh phát A trên đồ thị tăng luồng (tất nhiên AeX) và tập Y gồm 
những đỉnh còn lại (tất nhiên BeY) thì (X, Y) là lát cắt hẹp nhất đó. Có thê có nhiều lát cắt hẹp nhất, 
ví dụ néu đặt tập Y gồm những đỉnh đến được đỉnh thu B trên đồ thị tăng luồng (tất nhiên Be Y) và 
tập X gồm những đỉnh còn lại thì (X, Y) cũng là một lát cắt hẹp nhất. 

Định lý về tính nguyên: 

Nếu tất cả các khả năng thông qua là số nguyên thì thuật toán trên luôn tìm được luồng cực đại với 
luồng trên cung là các số nguyên. Điều này có thể chứng minh rất dé bởi ban đầu khởi tạo luồng 0 
thì tức các luồng trên cung là nguyên. Mỗi lần tăng luồng lên một lượng bằng trọng số nhỏ nhất trên 
các cung của đường tăng luồng cũng là số nguyên nên cuối cùng luồng cực đại tất sẽ phải có luồng 
trên các cung là nguyên. 

Định lý về chi phí thời gian thực hiện giải thuật: 

Trong phương pháp Ford-Fulkerson, nếu dùng đường đi ngắn nhất (qua ít cạnh nhất) từ đỉnh phát 
tới đỉnh thu trên đồ thị tăng luòng thì cần ít hơn n.m lần chọn đường đi đề tìm ra luồng cực đại. 
Edmonds và Karp đã chứng minh tính chất này và đề nghị một phương pháp cải tién: Tại mỗi bước, 
ta nên tìm đường tăng luồng sao cho giá trị tăng luồng được gia tăng nhiều nhất. 

Nói chung đối với thuật toán Ford-Fulkerson, các đánh giá lý thuyết bị lệch rất nhiều so với thực tế, 
mặc dù với sự phân tích trong trường hợp xấu, chỉ phí thời gian thực hiện của thuật toán là khá lớn. 
Nhưng trên thực tế thì thuật toán này hoạt động rất nhanh và hiệu quả. 

Bài tập: 

Bài 1 

Mạng với nhiều điểm phát và nhiều điểm thu: Cho một mạng gồm n đỉnh với p điểm phát AI, 
A2, ..., Ap và q điểm thu BI, B2, ..., Bq. Mỗi cung của mạng được gán khả năng thông qua là số 
nguyên. Các đỉnh phát chỉ có cung đi ra và các đỉnh thu chỉ có cung đi vào. Một luồng trên mạng 
này là một phép gán cho mỗi cung một số thực gọi là luồng trên cung đó không vượt quá khả năng 
thông qua và thoả mãn với mỗi đỉnh không phải đỉnh phát hay đỉnh thu thì tổng luồng đi vào bằng 
tổng luồng đi ra. Giá trị luồng bằng tổng luòng đi ra từ các đỉnh phát = tổng luồng đi vào các đỉnh 
thu. Hãy tìm luồng cực đại trên mạng. 

Bài 2 

Mạng với khả năng thông qua của các đỉnh và các cung: Cho một mạng với đỉnh phát A và đỉnh 


thu B. Mỗi cung (u, v) được gán khả năng thông qua c[u, v]. Mỗi đỉnh v khác với A và B được gán 
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khả năng thông qua d[v]. Một luồng trên mạng được định nghĩa như trước và thêm điều kiện: tổng 
luồng đi vào đỉnh v không được vượt quá khả năng thông qua d[v] của đỉnh đó. Hãy tìm luồng cực 
đại trên mạng. 

Bài 3 

Lát cắt hẹp nhất: Cho một đồ thị gồm n đỉnh và m cạnh và 2 đỉnh A, B. Hãy tìm cách bỏ đi một số 
ít nhất các cạnh đề không còn đường đi từ A tới B. 

Bài 4 

Một lớp học có n bạn nam, n bạn nữ. Cho m món quà lưu niệm, (n < m). Mỗi bạn có sở thích về 
một số món quà nào đó. Hãy tìm cách phân cho mỗi bạn nam tặng một món quà cho một bạn nữ 
thoả mãn: 

Mỗi bạn nam chỉ tặng quà cho đúng một bạn nữ 

Mỗi bạn nữ chỉ nhận quà của đúng một bạn nam 

Bạn nam nào cũng đi tặng quà và bạn nữ nào cũng được nhận quà, món quà đó phải hợp sở thích 
của cả hai người. 


Món quà nào đã được một bạn nam chọn thì bạn nam khác không được chọn nữa. 
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§11. BÀI TOÁN TÌM BỘ GHÉP CỰC ĐẠI TRÊN ĐỎ THỊ HAI PHÍA 


11.1. ĐỎ THỊ HAI PHÍA (BIPARTITE GRAPH) 


Các tên gọi đồ thị hai phía một dạng đơn đồ thị vô hướng G = (V, E) mà tập đỉnh của nó có thể chia 
làm hai tập con X, Y rời nhau sao cho bất kỳ cạnh nào của đồ thị cũng nối một đỉnh của X với một 
đỉnh thuộc Y. Khi đó người ta còn ký hiệu G là (XUY, E) và gọi một tập (chẳng hạn tập X) là tập 
các đỉnh trái và tập còn lại là tập các đỉnh phải của đồ thị hai phía G. Các đỉnh thuộc X còn gọi là 


các X_ đỉnh, các đỉnh thuộc Y gọi là các Y_ đỉnh. 


Hình 81: Đồ thị hai phía 


Đề kiểm tra một đồ thị liên thông có phải là đồ thị hai phía hay không, ta có thể áp dụng thuật toán 
sau: 
Với một đỉnh v bất kỳ: 


X = {v}; Y = Ø; 


repeat 
Y := Y U KÈ(X); 
X := X uU RÊ(Y); 


until (XAY # Ø) or (X và Y là tối đại - không bô sung được nữa) ; 

if XAY + Ø then < Không phải đồ thị hai phía > 

else <Ðây là dò thị hai phía, X là tập các dinh trái: các đỉnh đến được từ v qua một số chăn canh, Y là tập các đỉnh phải: 
các đỉnh đên được từ v qua một sô lẻ cạnh>; 

Đô thị hai phía gặp rât nhiêu mô hình trong thực tê. Chăng hạn quan hệ hôn nhân giữa tập những 


người đàn ông và tập những người đàn bà, việc sinh viên chọn trường, thầy giáo chọn tiết dạy trong 
thời khoá biểu v.v... 


11.2. BÀI TOÁN GHÉP ĐÔI KHÔNG TRỌNG VÀ CÁC KHÁI NIỆM 


Cho một đồ thị hai phía G = (XUY, E) ở đây X là tập các đỉnh trái và Y là tập các đỉnh phải của G 
Một bộ ghép (matching) của G là một tập hợp các cạnh của G đôi một không có đỉnh chung. 

Bài toán ghép đôi (matching problem) là tìm một bộ ghép lớn nhất (nghĩa là có số cạnh lớn nhất) 
của G 

Xét một bộ ghép M của G. 

Các đỉnh trong M gọi là các đỉnh đã ghép (matched vertices), các đỉnh khác là chưa ghép. 

Các cạnh trong M gọi là các cạnh đã ghép, các cạnh khác là chưa ghép 
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Nếu định hướng lại các cạnh của đồ thị thành cung, những cạnh chưa ghép được định hướng từ X 
sang Y, những cạnh đã ghép định hướng từ Y về X. Trên đồ thị định hướng đó: Một đường đi xuất 
phát từ một X_ đỉnh chưa ghép gọi là đường pha, một đường đi từ một X đỉnh chưa ghép tới một 
WV đỉnh chưa ghép gọi là đường mở. 

Một cách dễ hiểu, có thể quan niệm như sau: 

Một đường pha (alternating path) là một đường đi đơn trong G bắt đầu bằng một X_ đỉnh chưa ghép, 
đi theo một cạnh chưa ghép sang Y, rồi đến một cạnh đã ghép về X, rồi lại đến một cạnh chưa 
ghép sang Y... cứ xen kẽ nhau như vậy. 

Một đường mở (augmenting path) là một đường pha. Bắt đầu từ một X_ đỉnh chưa ghép kết 
thúc bằng một Y_ đỉnh chưa ghép. 

Ví dụ: với đồ thị hai phía trong hình Hình 82 và bộ ghép M = {(XI, Y1), (X2, Y2)} 

Xa và Y; là những đỉnh chưa ghép, các đỉnh khác là đã ghép 

Đường (X3, Y2, X2, Y¡) là đường pha 

Đường (X3, Y2, X2, Y1, Xị, Y3) là đường mở. 


X Y 
Hình 82: Đồ thị hai phía và bộ ghép M 
11.3. THUẬT TOÁN ĐƯỜNG MỞ 


Thuật toán đường mở đề tìm một bộ ghép lớn nhất phát biểu như sau: 

Bắt đầu từ một bộ ghép bất kỳ M (thông thường bộ ghép được khởi gán bằng bộ ghép rỗng hay 

được tìm bằng các thuật toán tham lam) 

Sau đó đi tìm một đường mở, nếu tìm được thì mở rộng bộ ghép M như sau: Trên đường mở, loại 

bỏ những cạnh đã ghép khỏi M và thêm vào M những cạnh chưa ghép. Nếu không tìm được đường 

mở thì bộ ghép hiện thời là lớn nhất. 

<Khởi tạo một bộ ghép M>; 

while <Có đường mở xuất phát từ x tới một đỉnh y chưa ghép et: do ï 
<Dọc trên đường mó, xoá bỏ khỏi M các cạnh đã ghép và thêm vào M những cạnh chưa ghép, đỉnh x và y trở thành đã ghép, sô 


cạnh đã ghép tăng lên 1>; : 
Như ví dụ trên, với bộ ghép hai cạnh M = {(X1, Y1), (X2, Y2)} và đường mở tìm được gôm các 


cạnh: 


(X3, Y2) g M 
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(Y2, X2) E M 

(OG Y) £Z M 

(Y, X) €M 

(OC, Y3) M 

Vậy thì ta sẽ loại đi các canh (Y2, X2) và (Yı, X¡) trong bộ ghép cũ và thêm vào đó các canh (X3, 
Y2), (Xa, Y1), (X1, Y3) được bộ ghép 3 cạnh. 


11.4. CÀI ĐẶT 


11.4.1. Biểu diễn đồ thị hai phía 

Giá sử đồ thị hai phía G = (XUY, E) có các X_ đỉnh ký hiệu là X[1], X2]. ..., X[m] và các Y_ đỉnh 
ký hiệu là Y[I], Y[2], ..., Y[n]. Ta sẽ biểu diễn đồ thị hai phía này bằng ma trận A cỡ mxn. Trong 
đó: 

A[i, j] = TRUE © có cạnh nối đỉnh X[ï] với đỉnh vil, 


11.4.2. Biểu diễn bộ ghép 

Đề biểu diễn bộ ghép, ta sử dụng hai mảng: matchX[ I..m] và matchs) al 

match SI là đỉnh thuộc tập Y ghép với đỉnh X[i] 

matchY[J] là đỉnh thuộc tập X ghép với đỉnh vil 

Tức là nếu như cạnh GDL Y[j]) thuộc bộ ghép thì matchX[i] = j và matchY[j] = i. 

Quy ước răng: 

Nếu như XI) chưa ghép với đỉnh nào của tập Y thì matchX[ï] = 0 

Nếu như Y[j] chưa ghép với đỉnh nào của tập X thì matchY[j] = 0. 

Đề thêm một cạnh (X[ï], Y[j]) vào bộ ghép thì ta chỉ việc đặt matchs) := j và matchY [j] := i; 
Đề loại một cạnh (X[ï], Y[j]) khỏi bộ ghép thì ta chỉ việc đặt matchX[i] := 0 và matchY[j] := 0; 


11.4.3. Tìm đường mở như thế nào. 

Vì đường mở bắt đầu từ một X_đỉnh chưa ghép, đi theo một cạnh chưa ghép sang tập Y, rồi theo 
một đã ghép dë về tập X, rồi lại một cạnh chưa ghép sang tập Y ... cuối cùng là cạnh chưa ghép 
tới một Y_ đỉnh chưa ghép. Nên có thể thấy ngay rằng độ dài đường mở là lẻ và trên đường mở số 
cạnh e M ít hơn số cạnh e M là 1 cạnh. Và cũng dễ thấy rằng giải thuật tìm đường mở nên sử dụng 
thuật toán tìm kiếm theo chiều rộng dé đường mở tìm được là đường đi ngắn nhất, giảm bớt công 
việc cho bước tăng cặp ghép. 

Ta khởi tạo một hàng đợi (Queue) ban đầu chứa tất cả các X_ đỉnh chưa ghép. Thuật toán tìm kiếm 
theo chiều rộng làm việc theo nguyên tắc lấy một đỉnh v khỏi Queue và lại đây Queue những nối từ 


v chưa được thăm. Như vậy nếu thăm tới một Y_ đỉnh chưa ghép thì tức là ta tìm đường mở kết thúc 
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ở Y_ đỉnh chưa ghép đó, quá trình tìm kiếm dừng ngay. Còn nếu ta thăm tới một đỉnh j e Y đã ghép, 
dựa vào sự kiện: từ j chỉ có thể tới được matehY[j] theo duy nhất một cạnh đã ghép định hướng 
ngược từ Y về X, nên ta có thể đánh dấu thăm j, thăm luôn cả matchY|jJ, và đây vào Queue 
phần tử matchY|[j| e X (Thăm liền 2 bước). 
Input: file văn bản MATCH.INP 
e Dòng 1: chứa hai số m, n (m, n < 100) theo thứ tự là số X_đỉnh và số Y_ đỉnh cách nhau ít 
nhất một dấu cách 
e Các dòng tiếp theo, mỗi dòng ghi hai số i, j cách nhau ít nhất một dấu cách thé hiện có cạnh 
nối hai đỉnh (X[ï], Y[j]) . 
Output: file văn bản MATCH.OUT, ghi bộ ghép cực đại tìm được 


MATCH.INP | MATCH. OUT 
45 Match: 
11 1) X[I] - Y1] 
14 2) X[2] - Y[4] 
21 3) Xi] - Y3] 
22 4) X[4] - YỊ2] 
24 
32 
33 
42 
43 

; È 


program MatchingProblem; 


const 
InputFile = 'MATCH.TNP'; 
OutputFile = 'MATCH.OUT'; 
max = 100; 

Var 


m, n: Integer; 

a: array[1..max, 1..max] of Boolean; 
matchX, matchY: array[1..max] of Integer; 
Trace: array[1..max] of Integer; 


procedure Enter; 
var 
i, j: Integer; 
f: Text; 
begin 
Assign(f, InputFile); Reset(f) ; 
FillChar(a, Size0f (a), False); 
Readln (f, m, n); 
while not SeekEof (f) do 
begin 
Readln (f, i, j); 
ali, j] := True; 
end; 
Close (f) ; 
end; 


procedure Init; (Khởi tạo bô ghép rỗng] 
begin 
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FillChar (matchX, SizeOf(matchX), 0); 
FillChar (matchY, SizeOf(matchY), 0); 
end; 


{Tìm đường mở, nếu thấy trả về một Y đỉnh chưa ghép là đỉnh kết thúc đường mở, nếu không thấy trả về 0} 
function FindAugmentingPath: Integer; 
var 

Queue: array[1..max] of Integer; 

i, j, first, last: Integer; 
begin 

FillChar (Trace, Bizet (Trace), 0); {Trace[j] = X đỉnh lièn trước Y[j] trên đường mở} 

last := 0; {Khôi tạo hàng đợi rỗng) 

for i := 1 to m do (Đẩy tất cả những X đỉnh chưa ghép vào hàng đợi} 

1f matchX[i] = 0 then 


begin 
Ine (last) ; 
Queue[last] := i; 
end; 
(Thuật toán tìm kiếm theo chièu rộng) 
first := 1; 
while first <= last do 
begin 


i := Queue[first]; Ine(first); (Lấy môt X đỉnh ra khỏi Queue (X[i]))} 
for j := 1 to n do (Xét nhũng Y đỉnh chua thăm kể với X[i] qua một cạnh chưa ghép] 
if (Trace[j] = 0) and a[i, j] and (matchX[i] <> j) then 
begin (lệnh if trên hoi thùa đk matchX[i] <> j, dièu kiện Trace[j] = 0 đã bao hàm luôn đièu kiện này rồi] 
Trace[j] := i; {Luu vết đường di} 
if matchY[j] = 0 then (Nếu j chua ghép thì ghi nhận đường mở và thoát ngay} 
begin 
FindAugmentingPath := j; 
Exit; 
end; 
Inc(last); (Đẩy luôn matchY[j] vào hàng đợi) 
Queue[last] := matchY[J] ; 
end; 
end; 
FindAugmentingPath := 0; {Ó trên không Exit được túc là không còn đường mở] 
end; 


{Nói rộng bộ ghép bằng đường mở kết thúc ở feY) 
procedure Enlarge(f: Integer); 


var X f X f 
x, next: Integer; 
sé next next 
x := Trace[|f]; = 
next := matchX[x]; 
matchX[x] := f; 
matchY[f] := x; 
f := next; 
until f = 0; start start 
end; 


procedure Solve; (Thuật toán đường mó} 
var 
finish: Integer; 
begin 
repeat 
finish := FindAugmentingPath; (Đầu tiên thủ tìm một đường mở} 
if finish <> 0 then Enlarge (finish); (Nếu thấy thì tăng cặp và lặp lại} 
until finish = 0; (Nếu không thấy thì dùng} 
end; 


procedure PrintResult; {In kết quả} 
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var 
i, Count: Integer; 
f: Text; 
begin 
Assign(f, OutputFile); Rewrite (f); 
Writeln(f, "Match: '); 
Count := 0; 
for i := 1 to m do 
if matchX[i] <> 0 then 
begin 
Inc (Count) ; 
WriteLn(f, Count, ') X[', i, '] - Y[', matchX[i], ']'); 
end; 
Close (f); 
end; 


begin 
Enter; 
Init; 
Solve; 
PrintResult; 
end. 


Khảo sát tính đúng đắn của thuật toán cho ta một kết quả khá thú vị: 
Nếu ta thêm một đỉnh A và cho thêm m cung từ A tới tất cả những đỉnh của tập X, thêm một đỉnh B 


và nối thêm n cung từ tất cả các đỉnh của Y tới B. Ta được một mạng với đỉnh phát A và đỉnh thu B. 


Hình 83: Mô hình luồng của bài toán tìm bộ ghép cực đại trên đồ thị hai phía 


Nếu đặt khả năng thông qua của các cung đều là 1 sau đó tìm luồng cực đại trên mạng bằng thuật 
toán Ford-Fulkerson thì theo định lý về tính nguyên, luồng tìm được trên các cung đều phải là số 
nguyên (tức là bằng 1 hoặc 0). Khi đó dě thấy rằng những cung có luồng 1 từ tập X tới tập Y sẽ cho 
ta một bộ ghép lớn nhất. Đề chứng minh thuật toán đường mở tìm được bộ ghép lớn nhất sau hữu 
hạn bước, ta sẽ chứng minh rằng số bộ ghép tìm được bằng thuật toán đường mở sẽ bằng giá trị 
luồng cực đại nói trên, điều đó cũng rất dě bởi vì nếu để ý kỹ một chút thì đường mở chẳng qua là 
đường tăng luồng trên đồ thị tăng luồng mà thôi, ngay cái tên augmenting path đã cho ta biết điều 
này. Vì vậy thuật toán đường mở ở trường hợp này là một cách cài đặt hiệu quả trên một dạng đồ 
thị đặc biệt, nó làm cho chương trình sáng sủa hơn nhiều so với phương pháp tìm bộ ghép dựa trên 


bài toán luồng và thuật toán Ford-Fulkerson thuần túy. 
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Người ta đã chứng minh được chỉ phí thời gian thực hiện giải thuật này trong trường hợp xấu nhất 
sẽ là O(n?) đối với đồ thị dày và O(n(n + m)logn) đối với đồ thị thưa. Tuy nhiên, cũng giống như 


thuật toán Ford-Fulkerson, trên thực tế phương pháp này hoạt động rất nhanh. 


Bài tập 

Bài 1 

Có n thợ và n công việc (n < 100), mỗi thợ thực hiện được ít nhất một việc. Như vậy một thợ có thể 
làm được nhiều việc, và một việc có thể có nhiều thợ làm được. Hãy phân công n thợ thực hiện n 
việc đó sao cho mỗi thợ phải làm đúng 1 việc hoặc thông báo rằng không có cách phân công nào 
thoả mãn điều trên. 

Bài 2 

Có n thợ và m công việc (n,m < 100). Mỗi thợ cho biết mình có thể làm được những việc nào, hãy 
phân công các thợ làm các công việc đó sao cho mỗi thợ phải làm ít nhất 2 việc và số việc thực hiện 
được là nhiều nhất. 

Bài 3 

Có n thợ và m công việc (n,m < 100). Mỗi thợ cho biết mình có thể làm được những việc nào, hãy 
phân công thực hiện các công việc đó sao cho số công việc phân cho người thợ làm nhiều nhất thực 


hiện là cực tiêu. 
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§12. BÀI TOÁN TÌM BỘ GHÉP CỰC ĐẠI VỚI TRỌNG SỐ CỰC TIỂU 
TRÊN ĐỎ THỊ HAI PHÍA - THUẬT TOÁN HUNGARI 


12.1. BÀI TOÁN PHÂN CÔNG 

Đây là một dạng bài toán phát biểu như sau: Có m người (đánh số 1, 2,..., m) và n công việc (đánh 
só 1,2, ..., n), mỗi người có khả năng thực hiện một só công việc nào đó. Đề giao cho người i thực 
hiện công việc j cần một chi phí là c[i, j] > 0. Cần phân cho mỗi thợ một việc và mỗi việc chỉ do 
một thợ thực hiện sao cho só công việc có thể thực hiện được là nhiều nhất và néu có > 2 phương án 
đều thực hiện được nhiều công việc nhất thì chỉ ra phương án chỉ phí ít nhất. 

Dựng đồ thị hai phía G = (XUY, E) với X là tập m người, Y là tập n việc và (u, v) € E với trọng só 
c[u, v] néu nhu người u làm được công việc v. Bài toán đưa về tìm bộ ghép nhiều cạnh nhất của G 
có trọng số nhỏ nhất. 

Gọi k = max(m, n). Bồ sung vào tập X và Y một số đỉnh giả dë | X | = | Y | =k. 

Gọi M là một số dương đủ lớn hon chi phí của mọi phép phân công có thể. Với mỗi cặp đỉnh (u, v): 
u € X và v e Y. Nếu (u, v) £ E thì ta bô sung cạnh (u, v) vào E với trọng số là M. 

Khi đó ta được G là một đồ thị hai phía đầy đủ (Đồ thị hai phía mà giữa một đỉnh båt kỳ của X và 
một đỉnh bất kỳ của Y đều có cạnh nối). Và nếu như ta tìm được bộ ghép đầy đủ k cạnh mang 
trọng số nhỏ nhất thì ta chỉ cần loại bỏ khỏi bộ ghép đó những cạnh mang trọng số M vừa 
thêm vào thì sẽ được kế hoạch phân công 1 người <> 1 việc cần tìm. Điều này dễ hiểu bởi bộ ghép 
đầy đủ mang trọng số nhỏ nhất tức là phải ít cạnh trọng số M nhất, tức là số phép phân công là 
nhiều nhất, và tất nhiên trong số các phương án ghép ít cạnh trọng số M nhất thì đây là phương án 


trọng số nhỏ nhất, tức là tổng chi phí trên các phép phân công là ít nhất. 


12.2. PHÂN TÍCH 


Vào: Đồ thị hai phía đầy đủ G = (XUY, E); x| = | Y | = k. Được cho bởi ma trận vuông C cỡ kxk, 
c[i,j]= trọng số cạnh nối đỉnh X; với Yj. Giả thiết c[i, j] > 0. với mọi i,j. 

Ra: Bộ ghép đầy đủ trọng số nhỏ nhất. 

Hai định lý sau đây tuy rất đơn giản nhưng là những định lý quan trọng tạo cơ sở cho thuật toán sẽ 
trình bày: 

Định lý 1: Loại bỏ khỏi G những cạnh trọng số > 0. Nếu những cạnh trọng số 0 còn lại tạo ra bộ 
ghép k cạnh trong G thì đây là bộ ghép cần tìm. 

Chứng minh: Theo giả thiết, các cạnh của G mang trọng số không âm nên bắt kỳ bộ ghép nào trong 
G cũng có trọng số không âm, mà bộ ghép ở trên mang trọng số 0, nên tất nhiên đó là bộ ghép đầy 


đủ trọng số nhỏ nhất. 
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Định lý 2: Với đỉnh X, néu ta cộng thêm một số A(dương hay âm) vào tất cả những cạnh liên 
thuộc với X; (twong đương với việc cộng thêm A vào tất cả các phần tử thuộc hàng i của ma trận 
C) thì không ảnh hưởng tới bộ ghép đây đủ trọng số nhỏ nhất. 

Chứng minh: Với một bộ ghép đầy đủ bất kỳ thì có một và chỉ một cạnh ghép với X[¡]. Nên việc 
cộng thêm A vào tất cả các cạnh liên thuộc với X[ï] sẽ làm tăng trọng số bộ ghép đó lên A. Vì vậy 
nếu như ban đầu, M là bộ ghép đầy đủ trọng số nhỏ nhất thì sau thao tác trên, M vẫn là bộ ghép đầy 
đủ trọng số nhỏ nhất. 

Hệ quả: Với đỉnh Y[j], nếu ta cộng thêm một số A (đương hay âm) vào tất cả những cạnh liên thuộc 
với Y[j] (tương đương với việc cộng thêm A vào tất cả các phần tử thuộc cột j của ma trận C) thì 
không ảnh hưởng tới bộ ghép đầy đủ trọng số nhỏ nhất. 

Từ đây có thể nhận ra tư tưởng của thuật toán: Từ đồ thị G, ta tìm chiến lược cộng / trừ một 
cách hợp lý trọng số của các cạnh liên thuộc với một đỉnh nào đó để được một đỗ thị mới vẫn có 
các cạnh trọng số không âm, mà các cạnh trọng số 0 của đồ thị mới đó chứa một bộ ghép đây đủ 
k cạnh. 


Ví dụ: Biến đổi ma trận trọng số của đồ thị hai phía 3 đỉnh trái, 3 đỉnh phải: 
0 0 0 1 o m] 
ZEN 
;—l0 1 7| = |0 [0] el = x,-Y, 
X, -Y 
3 1 
+—|0 8 9 [0] 7 8 


+ 


Hình 84: Phép xoay trọng số cạnh 


12.3. THUẬT TOÁN 


12.3.1. Các khái niệm: 

Đề cho gọn, ta gọi những cạnh trọng số 0 của G là những 0 cạnh. 

Xét một bộ ghép M chỉ gồm những 0_ cạnh. 

Những đỉnh € M gọi là những đỉnh đã ghép, những đỉnh còn lại gọi là những đỉnh chưa ghép. 
Những 0 cạnh e M gọi là những 0 cạnh đã ghép, những 0 cạnh còn lại là những 0 cạnh chưa 
ghép. 

Nếu ta định hướng lại các 0_cạnh như sau: Những 0_cạnh chưa ghép cho hướng từ tập X sang tập 
Y, những 0_cạnh đã ghép cho hướng từ tập Y về tập X. Khi đó: 

Đường pha (Alternating Path) là một đường đi cơ bản xuất phát từ một X_ đỉnh chưa ghép đi theo 


các 0_cạnh đã định hướng ở trên. Như vậy dọc trên đường pha, các 0_cạnh chưa ghép và những 
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0_cạnh đã ghép xen kẽ nhau. Vì đường pha chỉ là đường đi cơ bản trên đồ thị định hướng nên việc 
xác định những đỉnh nào có thê đến được từ x e X bằng một đường pha có thể sử dụng các thuật 
toán tìm kiếm trên đồ thị (BFS hoặc DFS). Những đỉnh và những cạnh được duyệt qua tạo thành 
một cây pha gốc x 

Một đường mở (Augmenting Path) là một đường pha đi từ một X đỉnh chưa ghép tới một Y_ đỉnh 
chưa ghép. Như vậy: 

Đường đi trực tiếp từ một X_đỉnh chưa ghép tới một Y_ đỉnh chưa ghép qua một 0_ cạnh chưa ghép 
cũng là một đường mở. 


Doc trên đường mở, số 0_ cạnh chưa ghép nhiều hơn số 0_cạnh đã ghép đúng 1 cạnh. 


12.3.2. Thuật toán Hungari 


Bước 1: Khởi tạo: 
Một bộ ghép M := Ø 
Bước 2: Với mọi đỉnh xeX, ta tìm cách ghép x” như sau. 
Bắt đầu từ đỉnh x“ chưa ghép, thử tìm đường mở bắt đầu ở x” bằng thuật toán tìm kiếm trên đồ thị 
(BFS hoặc DFS - thông thường nên dùng BFS để tìm đường qua ít cạnh nhất) có hai khả năng xảy 
ra: 
Hoặc tìm được đường mở thì dọc theo đường mở, ta loại bỏ những cạnh đã ghép khói M và thêm 
vào M những cạnh chưa ghép, ta được một bộ ghép mới nhiều hơn bộ ghép cũ 1 cạnh và đỉnh x“ 
trở thành đã ghép. 
Hoặc không tìm được đường mở thì do ta sử dụng thuật toán tìm kiếm trên đồ thị nên có thể xác 
định được hai tập: 
VisitedX = {Tập những X_ đỉnh có thể đến được từ x* bằng một đường pha} 

s% VisitedY = {Tập những Y_ đỉnh có thể đến được từ x* bằng một đường pha} 
Gọi A là trọng số nhỏ nhất của các cạnh nối giữa một đỉnh thuộc VisitedX với một đỉnh không 
thuộc VisitedY. Dễ thấy A > 0 bởi nếu A = 0 thì tồn tại một 0_cạnh (x, y) với xeVisitedX và 
y£VisitedY. Vì x“ đến được x bằng một đường pha và (x, y) là một 0 cạnh nên a cũng đến được y 
bằng một đường pha, dẫn tới y e VisitedY, điều này vô lý. 
Biến đổi đồ thị G như sau: Với Vx e VisitedX, trừ A vào trọng só những cạnh liên thuộc với x, Với 
Y y e VisitedY, cộng A vào trọng số những cạnh liên thuộc với y. 
Lặp lại thủ tục tìm kiếm trên đồ thị thử tìm đường mở xuất phát ở x' cho tới khi tìm ra đường mở. 


Bước 3: Sau bước 2 thì mọi X_ đỉnh đều được ghép, in kết quả về bộ ghép tìm được. 


Mô hình cài đặt của thuật toán có thê viết như sau: 


<Khởi tạo: M := Ø .>; 


Lê Minh Hoàng 


éi 276 we Chuyên đề 


for (x'eX) do 
begin 
repeat 
<Tìm đường mở xuất phát ở x>; 
if <Không tìm thấy đường wë: then <Biến đổi đồ thị G: Chọn A := >; 
until <Tìm thấy đường mỏ>; 
<Dọc theo dường mở, loại bỏ những cạnh đã ghép khỏi M 
và thêm vào M những cạnh chưa ghép>; 
end; 
<Kết quả»; 
Ví dụ mỉnh hoạ: 


Đề không bị rối hình, ta hiểu những cạnh không ghi trọng số là những 0_cạnh, những cạnh không 
vẽ mang trọng số rất lớn trong trường hợp này không cần thiết phải tính đến. Những cạnh nét đậm 


là những cạnh đã ghép, những cạnh nét thanh là những cạnh chưa ghép. 


X' = X,, tìm thấy đường mở 
X >Y, 
Tăng căp 


X‘ = X, tìm thấy đường mở 
X, > Y> X >Y; 
Tăng căp 


X = X,, tìm thấy đường mở 
X; > Y, 
Tăng căp 
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X' = X,, không thấy đường 
mở 

VisitedX = {X:, X4} 
VisitedY = {Y,} 

Giá trị xoay A = 1 (=c[3,2]) 
Trừ trọng số những cạnh 
liên thuộc với {X;,X,} đi 1 
Cộng trọng số những canh 
liên thuộc với {Y;} lên 1 ` 


-2 +2 


X' = X,, không thấy đường 
mở 

VisitedX = {X;, X;, H, X4} 
VisitedY = {Y}, Y„, Y3} 

Giá trị xoay A = 2 (=c[3,4]) 
Trừ trọng số những cạnh liên 
thuộc với {X4, X;, X4, X4} đi 2 
Cộng trọng số những cạnh _ 
liên thuộc với IN, Yz, Y3} 


-2 2 
2ZA 


XC = X¿, Tìm thấy đường mở 


X >Y; >X; >Y >X >Y >X, 
>Y, 

Tăng căp 

Xong 


Hình 85: Thuật toán Hungari 


2 H 
A 


Đề ý rằng néu nhw không tìm thấy đường mở xuất phát ở x` thì quá trình tìm kiếm trên dô thị sẽ cho 
ta một cây pha gốc x`. Giá trị xoay A thực chất là trọng số nhỏ nhất của cạnh női một X đỉnh trong 
cây pha với một Y đỉnh ngoài cây pha (cạnh ngoài). Việc trừ A vào những cạnh liên thuộc với 
X dinh trong cây pha và cộng A vào những cạnh liên thuộc với Y dinh trong cây pha sẽ làm cho 
cạnh ngoài nói trên trở thành 0_cạnh, các cạnh khác vẫn có trọng số >0. Nhưng quan trọng hơn là 
tất cả những cạnh trong cây pha vẫn cứ là 0_cạnh. Điều đó đảm bảo cho quá trình tim kiếm trên 
đồ thị lần sau sẽ xây dựng được cây pha mới lớn hơn cây pha cũ (Thể hiện ở chỗ: tập VisitedY sẽ 
rộng hơn trước ít nhất 1 phân tử). Vì tập các Y_ đỉnh đã ghép là hữu hạn nên sau không quá k bước, 
sẽ có một Y đỉnh chưa ghép e VisitedY, tức là tim ra đường mở 

Trên thực tế, để chương trình hoạt động nhanh hơn, trong bước khởi tạo, người ta có thể thêm một 
thao tác: 

Với mỗi đỉnh x e X, xác định trọng số nhỏ nhất của các cạnh liên thuộc với x, sau đó trừ tất cả 


trọng số các cạnh liên thuộc với x đi trọng số nhỏ nhất đó. Làm tương tự như vậy với các Y_ đỉnh. 
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Điều này tương đương với việc trừ tất cả các phần tử trên mỗi hàng của ma trận C đi giá trị nhỏ 
nhất trên hàng đó, rồi lại trừ tất cả các phần tử trên mỗi cột của ma trận C đi phần tử nhỏ nhất trên 
cột đó. Khi đó số 0_ cạnh của đồ thị là khá nhiều, có thể chứa ngay bộ ghép đầy đủ hoặc chỉ cần qua 
ít bước biến đổi là sẽ chứa bộ ghép đầy đủ k cạnh. 

Đề tưởng nhớ hai nhà toán học König và Egervary, những người đã đặt cơ sở lý thuyết đầu tiên cho 
phương pháp, người ta đã lấy tên của đất nước sinh ra hai nhà toán học này để đặt tên cho thuật toán. 
Mặc dù sau này có một số cải tiến nhưng tên gọi Thuật toán Hungari (Hungarian Algorithm) vẫn 


được dùng phổ biến. 


12.4. CÀI ĐẶT 


12.4.1. Phương pháp đối ngẫu Kuhn-Munkres (Không làm biến däi ma trận C ban đầu) 
Phương pháp Kuhn-Munkres đi tìm hai dãy số Fx[1..k] và Fy[1..k] thoả mãn: 

c[i, j] - Fx[i] - Fy[i]> 0 

Tập các cạnh (X[i], vil thoả mãn cị, j] - Fx[i] - Fy[j] = 0 chứa trọn một bộ ghép đầy đủ k cạnh, 
đây chính là bộ ghép cần tìm. 

Chứng mình: 

Nếu tìm được hai dãy số thoả mãn trên thì ta chỉ việc thực hiện hai thao tác: 

Với mỗi đỉnh XŢi], trừ tất cả trọng số của những cạnh liên thuộc với Xfi] đi Fx[i] 

Với mỗi đỉnh YJJJ, trừ tất cả trọng số của những cạnh liên thuộc với Y[j] đi Fy[j] 

(Hai thao tác này tương đương với việc trừ tất cả trọng số của các cạnh OI, Y[j]) đi một lượng 
Fi + Fy[j] tức là cfi, j] := cfi j] - Fx[i] - Fyjj j) 

Thì dễ thấy đồ thị mới tạo thành sẽ gôm có các cạnh trọng số không âm và những 0_cạnh của dô 


thị chứa trọn một bộ ghép đây đủ. 


| 2 3 4 

l i 0 M M Fx[1] =2 
7 0 M M Fx[2J =2 
3 M 0 M Fxf3J = 3 
4 M M i 9 Fx[4] = 3 


Fy[1] =-2 lwl2]=-2 klyl3]=-3 Fy[4]=0 
(Có nhiễu phương án khác: Fx = (0, 0, 1, 1); Fy = (0, 0, -1, 2) cũng đúng) 


Vậy phương pháp Kuhn-Munkres đưa việc biến đổi đồ thị G (biến đổi ma trận C) về việc biến däi 
hay dãy số Fx và Fy. Việc trừ A vào trọng số tất cả những cạnh liên thuộc với X[i] tương đương với 


việc tăng Fx[i] lên A. Việc cộng A vào trọng số tất cả những cạnh liên thuộc với Y[j] tương đương 
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với giảm Fy[j] đi A. Khi cần biết trọng số cạnh (X[i], Y[j]) là bao nhiêu sau các bước biến đôi, thay 
vì viết ci. j], ta viết c[i, j] - Fx[i] - Fv). 

Ví dụ: Thủ tục tìm đường mở trong thuật toán Hungari đòi hỏi phải xác định được cạnh nào là 
0_cạnh, khi cài đặt bằng phương pháp Kuhn-Munkres, việc xác định cạnh nào là 0 cạnh có thể 
kiểm tra bằng đăng thức: c[i, j] - Fx[ï] - Fy[j] = 0 hay elt, j] = El + Fy[j]. 


Sơ đồ cài đặt phương pháp Kuhn-Munkres có thể viết như sau: 

Bước 1: Khởi tạo: 

M := Ø; 

Việc khởi tạo các Fx, Fy có thê có nhiều cách chăng hạn Fx[ï] := 0; Fy[j] := 0 với Vi, j. 
Hoặc: Fxļ[i] := min(c[l, jl) với Vi. Sau đó đặt Fy[J] := md, j|- Fx[I]) với VỊ. 


(Miễn sao ct, j] - Fx[i] - Fy[j] > 0) 
Bước 2: Với mọi đỉnh x eX, ta tìm cách ghép x' như sau: 
Bắt đầu từ đỉnh x”, thử tìm đường mở bắt đầu ở x” bằng thuật toán tìm kiếm trên đồ thị (BFS hoặc 
DFS). Lưu ý rằng 0 cạnh là cạnh thoả mãn cl, j] = Fx[i] + Fy[j]. Có hai khả năng xảy ra: 
Hoặc tìm được đường mở thì dọc theo đường mở, ta loại bỏ những cạnh đã ghép khỏi M và thêm 
vào M những cạnh chưa ghép. 
Hoặc không tìm được đường mở thì xác định được hai tập: 
VisitedX = {Tập những X_ đỉnh có thể đến được từ x* bằng một đường pha} 
dé VisitedY = {Tập những Y_ đỉnh có thể đến được từ x* bằng một đường pha} 
Đặt A := min{c[I, j] - Fx[i] - Fy[j] | VX[I] e VisitedX; VY[J] £ VisitedY} 
Với VX[I] € VisitedX: Fx[I] := Fx[I] + A; 
Với VY[j|  VisitedY: Fy[J] := Fy[J] - A; 
Lặp lại thủ tục tìm đường mở xuất phát tại x` cho tới khi tìm ra đường mở. 
Đáng lưu ý ở phương pháp Kuhn-Munkres là nó không làm thay đổi ma trận C ban đầu. Điều đó 
thực sự hữu ích trong trường hợp trọng số của cạnh (X[ï], Y[j]) không được cho một cách tường 
minh bằng giá trị C[i, j] mà lại cho bằng hàm c(i, j): trong trường hợp này, việc trừ hàng/cộng cột 


trực tiếp trên ma trận chi phí C là không thê thực hiện được. 

12.4.2. Cài đặt 

a) Biểu diễn bộ ghép 

Đề biểu diễn bộ ghép, ta sử dụng hai mảng: matchX[1..k] và matchY[1..k]. 
match SI là đỉnh thuộc tập Y ghép với đỉnh X[i] 

matchY[j] là đỉnh thuộc tập X ghép với đỉnh vil 
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Tức là nếu như cạnh GDL Y[j]) thuộc bộ ghép thì matchX[i] = j và matchY[j] = i. 
Quy ước răng: 
Nếu như X[i] chưa ghép với đỉnh nào của tập Y thì matchX[i] = 0 
Nếu như Y[j] chưa ghép với đỉnh nào của tập X thì matchY[j] = 0. 
Đề thêm một cạnh (X[ï], Y[j]) vào bộ ghép thì chỉ việc đặt matchX[ï] := j và matchY[j] := i; 
Đề loại một cạnh (X[i], Y[j]) khỏi bộ ghép thì chỉ việc đặt matchX[i] := 0 và matchY[j] := 0; 
b) Tìm đường mở như thế nào 
Ta sẽ tìm đường mở và xây dựng hai tập VisitedX và VisitedY bằng thuật toán tìm kiếm theo chiều 
rộng chỉ xét tới những đỉnh và những 0_ cạnh đã định hướng như đã nói trong phần đầu: 
Khởi tạo một hàng đợi (Queue) ban đầu chỉ có một đỉnh x”. Thuật toán tìm kiếm theo chiều rộng 
làm việc theo nguyên tắc lấy một đỉnh v khỏi Queue và lại đây Queue những nối từ v chưa được 
thăm. Như vậy nếu thăm tới một Y_ đỉnh chưa ghép thì tức là ta tìm đường mở kết thúc ở Y_ đỉnh 
chưa ghép đó, quá trình tìm kiếm dừng ngay. Còn nếu ta thăm tới một đỉnh y e Y đã ghép, dựa vào 
sự kiện: từ y chỉ có thể tới được matehY[y| theo duy nhất một 0_cạnh định hướng, nên ta có thể 
đánh dấu thăm y, thăm luôn cả matchY [y], và đây vào Queue phần tử matchY[y] € X. 
Input: file văn bản ASSIGN.INP 

e Dòng 1: Ghi hai só m, n theo thứ tự là số thợ và số việc cách nhau 1 dấu cách (m, n < 100) 

e Các dòng tiếp theo, mỗi dòng ghi ba số i, j, c[i, j] cách nhau 1 dấu cách thể hiện thợ i làm 


được việc j và chi phí để làm là c[i, j] (1 <i < m; 1 <j < n; 0 < c[i, j] < 100). 


Output: file văn bản ASSIGN.OUT, mô tả phép phân công tối ưu tìm được. 


ASSIGN.TNP | ASSTGN.OUT 


56 Optimal assignment: 
110 1) X[1] - Y[1] 0 
120 2) X[2] - Y[4] 2 
210 3) X[3] - Y[2] 1 
242 4) X[4] - Y[3] 0 
321 Cost: 3 

330 

430 

449 

5419 


program AssignmentProblemSolve; 
const 
InputFile = 'ASSIGN.INP'; 
OutputFile = 'ASSIGN.OUT' ; 


max = 100; 
maxC = 10001; 
var 
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c: array[l..max, 1..max] of Integer; 
Fx, Fy, matchX, matchY, Trace: array[1..max] of Integer; 


m, n, k, start, finish: Integer; {duòng mỏ sẽ bất đầu từ starteX và kết thúc ở finisheY] 


procedure Enter; 
var 
i, j: Integer; 
f: Text; 
begin 
Assign(f, InputFile); Reset(f) ; 
Readln (f, m, n); 
if m > n then k := m else k := n; 
for i := 1 to k do 
for j := 1 to k do c[i, j] := maxC; 
while not SeekEof(f) do Readin(f, i, j, elt, j]); 
Close (f) ; 
end; 


procedure Init; {Khói tạo} 
var 
i, j: Integer; 
begin 
(Bộ ghép rỗng) 
FillChar (matchX, SizeOf(matchX), 0); 
FillChar (matchY, SizeOf(matchY), 0); 


{Fx[i] := Trọng số nhỏ nhất của các cạnh liên thuộc với X[i]} 
for i := 1 to k do 
begin 
Fx[i] := maxC; 
for j := 1 to k do 
if c[i, j] < Fx[i] then Fx[i] := c[i, j]; 
end; 
{Fy[j] := Trọng số nhỏ nhất của các cạnh liên thuộc với Y[j]} 
for j := 1 to k do 
begin 
fy[j]] := maxC; 
for i := 1 to k do {Luu ý là trọng số cạnh (x[i], y[j]) bây giờ là c[i, j] - Fx[i] chứ không còn là c[i, j] nữa} 
if c[i, j] - Fx[i] < Fy[j] then Fy[J] := c[i, j] - Fx[i]; 
end; 


(Việc khởi tạo các Fx và Fy như thế này chỉ đơn giản là để cho số 0 cạnh trở nên càng nhiễu càng tốt mà thôi] 
{Ta hoàn toàn có thể khởi gán các Fx và Fy bằng giá trị 0} 

end; 

{Hàm cho biết trọng số cạnh (X{i], Y[j]) } 

function GetC(i, j: Integer): Integer; 

begin 
Get? := cli, j] - Fx[i] - Fylj]; 

end; 


procedure FindAugmentingPath; (Tìm đường mở bát đầu ở start} 
var 
Queue: array[1..max] of Integer; 
i, j, first, last: Integer; 
begin 
FillChar (Trace, Bizet (Trace), 0); {Trace[j] = X đỉnh liền trước Y[j] trên đường mở) 
{Thuật toán BFS} 
Queue[l] := start; (Đây start vào hàng đợi} 
first := 1; last := 1; 
repeat 
i := Queue[first]; Ine(first}; (Lấy một đỉnh X{i] khỏi hàng đợi) 
for j := 1 to k do (Duyệt những Y đỉnh chưa thăm kề với X[i] qua một 0 cạnh chưa ghép} 
if (Trace[j] = 0) and (GetC(i, j) = 0) then 
begin 
Trace[j] := i; {Luu vết đường đi, cùng với việc đánh dấu (z0) luôn) 
if matchY[j] = 0 then (Nếu j chưa ghép thì ghi nhận nơi kết thúc đường mở và thoát luôn) 


Lê Minh Hoàng 


Q 282 wë 


begin 
finish := j; 
Exit; 

end; 


Inc(last); Queue[last] := matchY[j]; (Đẩy luôn matchY[j] vào Queue} 


end; 
until first > last; (Hàng đợi rông} 
end; 


procedure SubX AddY; {Xoay các trọng số cạnh) 


var 
i, j, t, Delta: Integer; 
VisitedX, VisitedY: set of Byte; 
begin 
(D Chú ý: 
VisitedY 


{y | Trace[y] # 0} 


VisitedX = {start} U match (VisitedY) 


KR 
VisitedX := [start]; 
VisitedY := []; 
for j := 1 to k do 
if Trace[j] <> 0 then 
begin 
Include (VisitedX, matchY[j]); 
Include (VisitedY, j); 
end; 


{start} U {matchY[y] | Trace[y] # 0} 


Chuyên đề 


{Sau khi xác định được VisitedX và VWisitedY, ta tìm A là trọng số nhỏ nhất của cạnh nỗi từ WisitedX ra Y\WisitedY] 


Delta := maxC; 
for i := 1 to k do 
if i in VisitedX then 
for j := 1 to k do 


if not (j in VisitedY) and (GetC(i, j) < Delta) then 


Delta := 6etC(i, j); 
{Xoay trọng số cạnh) 
for t := 1 to k do 
begin 


{Trù trọng số những cạnh liên thuộc với VisitedX đi Delta} 
if tin VisitedX then Fx[t] := Fx[t] + Delta; 

{Công trọng số những cạnh liên thuộc với VisitedY lên Delta} 
if tin VisitedY then Fy[t] := Fy[t] - Delta; 


end; 
end; 
{Nói rộng bộ ghép bởi đường mở tìm được} 
procedure Enlarge; 
var 
x, next: Integer; 
begin 
repeat 
x := Trace[finish] ; 
next := matchX[x]; 
matchX[x] := finish; 
matchY [finish] := x; 
finish := Next; 
until finish = 0; 
end; 


procedure Solve; (Thuật toán Hungari} 
var 
x, y: Integer; 
begin 
for x := 1 to k do 
begin 


start 


next 


start 


next 


start := x; finish := 0; (Khởi gán nơi xuất phát đường mó, finish = 0 nghĩa là chưa tìm thấy đường mở) 
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repeat 
FindAugmentingPath; (Thủ tìm đường mó} 
if finish = 0 then SubX AđđY; (Nếu không thấy thì xoay các trọng số cạnh và lặp lại] 
until finish <> 0; {Cho tới khi tìm thấy đường mở) 
Enlarge; {Tăng cặp dya trên đường mở tìm được} 
end; 
end; 


procedure Result; 
var 
x, y, Count, W: Integer; 
f: Text; 
begin 
Assign(f, OutputFile); Rewrite (f); 
WriteLn(f, 'Optimal assignment: ') ; 
W := 0; Count := 0; 
for x := 1 to mdo {In ra phép phân công thì chỉ cần xét đến m, không cần xét dén k} 
begin 
y := matchX[x]; 
{Những cạnh có trọng số maxC tương ứng với một thợ không được giao việc và một việc không được phân công} 
1f c[x, y] < maxC then 
begin 
Inc (Count) ; 
WriteLn(f, Count:5, ') X[', x, '] - Y[', y, '] ', e[x, yl); 
W :=W+ cix, y]; 
end; 
end; 
Writeln(f, 'Cost: ', W); 
Close (f); 
end; 


begin 
Enter; 
Init; 
Solve; 


Result; 
end. 


Nhân xét: 

Nếu cài đặt như trên thì cho dù đồ thị có canh mang trọng số âm, chương trình vẫn tìm được bộ 
ghép cực đại với trọng số cực tiểu. Lý do: Ban đầu, ta trừ tất cả các phần tử trên mỗi hàng của ma 
trận C đi giá trị nhỏ nhất trên hàng đó, rồi lại trừ tất cả các phần tử trên mỗi cột của ma trận C đi giá 
trị nhỏ nhất trên cột đó (Phép trừ ở đây làm gián tiếp qua các Fx, Fy chứ không phải trừ trực tiếp 
trên ma trận C). Nên sau bước này, tất cả các cạnh của đồ thị sẽ có trọng số không âm bởi phần tử 
nhỏ nhất trên mỗi cột của C chắc chắn là 0. 

Sau khi kết thúc thuật toán, tổng tất cả các phần tử ở hai dãy Fx, Fy bằng trọng số cực tiểu của bộ 
ghép đầy đủ tìm được trên đồ thị ban đầu. 

Một vấn đề nữa phải hết sức cân thận trong việc ước lượng độ lớn của các phần tử Fx và Fy. Nếu 
như giả thiết cho các trọng số không quá 500 thì ta không thể dựa vào bất đẳng thức Fx(x) + Fy(y) 
< c(x, y) mà khẳng định các phần tử trong Fx và Fy cũng < 500. Hãy tự tìm ví dụ để hiểu rõ hơn 


bản chất thuật toán. 
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12.5. BÀI TOÁN TÌM BỘ GHÉP CỰC ĐẠI VỚI TRỌNG SỐ CỰC ĐẠI TRÊN 
ĐỎ THỊ HAI PHÍA 


Bài toán tìm bộ ghép cực đại với trọng số cực đại cũng có thể giải nhờ phương pháp Hungari bằng 
cách dëi dấu tất cả các phần tử ma trận chỉ phí (Nhờ nhận xét 1). 
Khi cài đặt, ta có thể sửa lại đôi chút trong chương trình trên dë giải bài toán tìm bộ ghép cực đại 
VỚI trọng số cực đại mà không cần đôi dấu trọng số. Cụ thể như sau: 
Bước 1: Khởi tạo: 
M := Ø; 
Khởi tạo hai dãy Fx và Fy thoả mãn: Vi, j: Fx{[i| + Fy[j] > et, j]; Chẳng hạn ta có thể đặt Fall := 
Phần tử lớn nhất trên dòng i của ma trận C và đặt các Feil := 0. 
Bước 2: Với mọi đỉnh x €X, ta tìm cách ghép x` như sau: 
Với cách hiểu 0_ cạnh là cạnh thoả mãn elt, j] = Fx[i] + Fy[j]. Bắt đầu từ đỉnh x`, thử tìm đường mở 
bắt đầu ở x”. Có hai khả năng xảy ra: 
Hoặc tìm được đường mở thì dọc theo đường mở, ta loại bỏ những cạnh đã ghép khỏi M và thêm 
vào M những cạnh chưa ghép. 
Hoặc không tìm được đường mở thì xác định được hai tập: 
VisitedX = {Tập những X_ đỉnh có thể đến được từ x* bằng một đường pha} 
% VisitedY = {Tập những Y_ đỉnh có thể đến được từ x* bằng một đường pha} 
Đặt A := min{Fx[i] + Ey[] - c[i, j] | VX[I] e VisitedX; VY[J] £ VisitedY} 
Với VX[i| e VisitedX: Fx[I] := Fx[I| - A: 
Với VY|[j] € VisitedY: Fy[j] := Fy[J] + A; 
Lặp lại thủ tục tìm đường mở xuất phát tại x` cho tới khi tìm ra đường mở. 
Bước 3: Sau bước 2 thì mọi X_ đỉnh đều đã ghép, ta được một bộ ghép đầy đủ k cạnh với trọng số 
lớn nhất. 
Dễ dàng chứng minh được tính đúng đắn của phương pháp, bởi nếu ta đặt: 
c{i,j]= - cli, j]; Fx[i] := - Fx{i]; F[i] = - Fylj]. 
Thì bài toán trở thành tìm cặp ghép đầy đủ trọng số cực tiêu trên đồ thị hai phía với ma trận trọng số 
c'[1..k, 1..k]. Bài toán này được giải quyết bằng cách tính hai dãy đối ngẫu F'x và F'y. Từ đó bằng 
những biến đổi đại số cơ bản, ta có thể kiểm chứng được tính tương đương giữa các bước của 


phương pháp nêu trên với các bước của phương pháp Kuhn-Munkres ở mục trước. 
12.6. NÂNG CAP 


Dựa vào mô hình cài đặt thuật toán Kuhn-Munkres ở trên, ta có thê đánh giá về độ phức tạp tính 


toán lý thuyết của cách cài đặt này: 
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Thuật toán tìm kiếm theo chiều rộng được sử dụng đề tìm đường mở có độ phức tạp O(k”), mỗi lần 
xoay trọng số cạnh mắt một cht phí thời gian cỡ O(k”). Vậy mỗi lần tăng cặp, cần tối đa k lần đò 
đường và k lần xoay trọng số cạnh, mất một chi phí thời gian cỡ O(k”). Thuật toán cần k lần tăng 
cặp nên độ phức tạp tính toán trên lý thuyết của phương pháp này cỡ O(k'). 

Có thể cải tién mô hình cài đặt để được một thuật toán với độ phức tạp O(k}) dựa trên những nhận 


xét sau: 


12.6.1. Nhận xét 1 
Quá trình tìm kiếm theo chiều rộng bắt đầu từ một đỉnh x” chưa ghép cho ta một cây pha gốc x”. 
Nếu tìm được đường mở thì dừng lại và tăng cặp ngay, néu không thì xoay trọng số cạnh và bắt đầu 


tìm kiếm lại để được một cây pha mới lớn hơn cây pha cũ (Hình 86): 


Tìm thấy đường mở 


Hình 86: Cây pha "mọc" lớn hơn sau mỗi lần xoay trọng số cạnh và tìm đường 
Nhận xét 2 
Việc xác định trọng số nhỏ nhất của cạnh nối một X đỉnh trong cây pha với một Y_ đỉnh ngoài cây 
pha có thê kết hợp ngay trong bước dựng cây pha mà không làm tăng cấp phức tạp tính toán. Để 
thực hiện điều này, ta sử dụng kỹ thuật như trong thuật toán Prim: 
Với mọi ven, gọi d[y] := khoảng cách từ y đến cây pha gốc x”. Ban đầu d[y] được khởi tạo bằng 
trọng số cạnh OH y)= c[x` y] - Fx[x*] - Fy[y] (cây pha ban đầu chi có đúng một đỉnh xì). 
Trong bước tìm đường bằng BFS, mỗi lần rút một đỉnh x ra khỏi Queue, ta xét những đỉnh ven 
chưa thăm và đặt lại d[y]mói := min(d[y |c¡, trọng số cạnh (x, y)) sau đó mới kiểm tra xem (x, y) có 
phải là 0_cạnh hay không để tiếp tục các thao tác như trước. Nếu quá trình BFS không tìm ra đường 
mở thì giá trị xoay A chính là giá trị nhỏ nhất trong các d[y] dương. Ta bớt được một đoạn chương 
trình tìm giá trị xoay có độ phức tạp O(k”). Công việc tại mỗi bước xoay chỉ là tìm giá trị nhỏ nhất 


trong các d[y] dương và thực hiện phép cộng, trừ trên hai dãy đối ngẫu Fx và Fy, nó có độ phức tạp 
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tính toán O(k), tối đa có k lần xoay dë tìm đường mở nên tông chỉ phí thời gian thực hiện các lần 
xoay cho tới khi tìm ra đường mở cỡ O(k”). Lưu ý rằng đồ thị đang xét là đồ thị hai phía đầy đủ nên 
sau khi xoay các trọng số cạnh bằng giá trị xoay A, tất cả các cạnh nói từ X_ đỉnh trong cây pha tới 
Y đỉnh ngoài cây pha đều bị giảm trọng số đi A, chính vì vậy ta phải trừ tất cả các d[y] > 0 đi A để 
giữ được tính hợp lý của các d[y]. 

Nhận xét 3: 

Ta có thể tận dụng kết quả của quá trình tìm kiếm theo chiều rộng ở bước trước đề nới rộng cây pha 
cho bước sau (grow alternating tree) mà không phải tìm lại từ đầu (BFS lại bắt đầu từ x”). 

Khi không tìm thấy đường mở, quá trình tìm kiếm theo chiều rộng sẽ đánh dấu được những đỉnh đã 
thăm (thuộc cây pha) và hàng đợi các X_ đỉnh trong quá trình tìm kiếm trở thành rỗng. Tiếp theo là 
phải xác định được A = trọng số nhỏ nhất của cạnh nối một X đỉnh đã thăm với một Y_ đỉnh chưa 
thăm và xoay các trọng số cạnh dë những cạnh này trở thành 0_cạnh. Tại đây ta sẽ dùng kỹ thuật 
sau: Thăm luôn những đỉnh yeY chưa thăm tạo với một X đỉnh đã thăm một 0 cạnh (những 
Y_ đỉnh chưa thăm có d[y] = 0), nếu tìm thấy đường mở thì đừng ngay, nếu không thấy thì đây tiếp 
những đỉnh matchY[y] vào hàng đợi và lặp lại thuật toán tìm kiếm theo chiều rộng bắt đầu từ những 
đỉnh này. Vậy nếu xét tổng thể, mỗi lần tăng cặp ta chỉ thực hiện một lần dựng cây pha, tức là tổng 
chi phí thời gian của những lần thực hiện giải thuật tìm kiếm trên đồ thị sau mỗi lần tăng cặp chỉ 
còn là OK) 

Nhận xét 4: 

Thủ tục tăng cặp dựa trên đường mở (Enlarge) có độ phức tạp O(k) 

Từ 3 nhận xét trên, phương pháp đối ngẫu Kuhn-Munkres có thể cài đặt bằng một chương trình có 


độ phức tạp tính toán O(k?) bởi nó cần k lần tăng cặp và chi phí cho mỗi lần là Ok) 
D D 8 cạp 


program AssignmentProblemSolve ; 
const 
InputFile = 'ASSIGN.INP'; 
OutputFile = 'ASSIGN.OUT' ; 


max = 100; 
maxC = 10001; 
var 


c: array[1..max, 1..max] of Integer; 

Fx, Fy, matchX, matchY: array[1..max] of Integer; 
Trace, Queue, d, arg: array[1..max] of Integer; 
first, last: Integer; 

start, finish: Integer; 

m, n, k: Integer; 


procedure Enter; (Nhập dữ liêu} 
var 
i, j: Integer; 
f: Text; 
begin 
Assign(f, InputFile); Reset(f) ; 
Readln (f, m, n); 
if m > n then k := m else k := n; 
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for i := 1 to k do 
for j := 1 to k do c[i, j] := maxC; 
while not SeekEof(f) do ReadIn(f, i, j, elt, j]); 
Close (f); 
end; 


procedure Init; (Khỏi tạo bộ ghép rỗng và hai dãy đối ngẫu Fx, Fy} 
Var 
i, j: Integer; 
begin 
FillChar (matchX, SizeOf(matchX), 0); 
FillChar (matchY, SizeOf(matchY), 0); 
for i := 1 to k do 
begin 
Fx[i] := maxC; 
for j := 1 to k do 
if c[i, j] < Fx[i] then Fx[i] := c[i, j]; 


end; 
for j := 1 to k do 
begin 
Fy[j] := maxC; 


for i := 1 to k do 
if c[i, j] - Fx[i] < Fy[j] then Fy[j] := c[i, j] - Fx[i]; 
end; 
end; 


function GetC(i, j: Integer): Integer; {Hàm trả về trọng số cạnh (X{i], Y[j])} 
begin 

Bett := c[i, j] - Fx[i] - Fy[j]; 
end; 


procedure InitBFS; {Thú tục khởi tạo trước khi tìm cách ghép startex} 
var 
y: Integer; 
begin 
{Hàng đợi chi gòm mỗi một dinh Start & cây pha khởi tạo chi có 1 đỉnh start} 
first := 1; last := 1; 
Queue[1] := start; 
{Khói tao các Y dinh đều chua thăm @ Trace[y] = 0, Yy} 
FillChar (Trace, Size0f (Trace), 0); 
{Khói tạo các d[y]} 
for y := 1 to k do 
begin 
dịy] := GetC(start, y); {d[y] là khoảng cách tù y tới cây pha gốc start} 
argiy] := start; (arg[y] là X đỉnh thuộc cây pha tạo ra khoảng cách đó} 
end; 
finish := 0; 
end; 


procedure Push(v: Integer); (Đẩy một đỉnh veX vào hàng đợi] 
begin 

Inc(last); Queue[last] := v; 
end; 


function Pop: Integer; (Rút một X đỉnh khỏi hàng đợi, trả về trong kết quả hàm) 
begin 

Pop := Queue[first]; Inc (first) ; 
end; 


procedure FindAugmentingPath; (Thủ tục tìm đường mó} 
var 

i, j, w: Integer; 
begin 
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repeat 
i := Pop; {Rút một đỉnh X[i] khỏi hàng đợi} 
for j := 1 to k do (Quét những Y đỉnh chua thăm) 
if Trace[j] = 0 then 
begin 
w := 6etC(i, j); {xét cạnh (X[i], Y[j])} 
if w= 0 then (Nếu là 0 cạnh) 
begin 
Trace[j] := i; {Luu vết đường di} 
if matchY[j] = 0 then (Nếu j chua ghép thì ghi nhận nơi kết thúc đường mở và thoát) 
begin 
finish := j; 
Exit; 
end; 
Push (matchY[j]); (Nếu j đã ghép thì đẩy tiếp matchY[j] vào hàng đợi] 
end; 
if d[j] >w then (Cập nhật lại khoảng cách d[j] nếu thấy cạnh (X{[i], Y[j]) ngắn hơn khoảng cách này} 
begin 
d[j] zw 
arg[j] := i; 
end; 
end; 
until first > last; 
end; 


{Xoay các trọng số cạnh) 
procedure SubX_AddY; 


var 
Delta: Integer; 
x, y: Integer; 
begin 


{Truóc hết tính A = giá trị nhỏ nhất trọng số các d[y], với yeY chua thăm (y không thuộc cây pha))} 
Delta := maxC; 
for y := 1 to k do 
if (Trace[y] = 0) and (dịy] < Delta) then Delta := dịy]; 
{Trù trọng số những cạnh liên thuộc với starteX đi A} 
Fx[start] := Fx[start] + Delta; 
for y := 1 to k do (Xét các đỉnh yeY} 
if Trace[y] <> 0 then (Nếu y thuộc cây pha} 
begin 
x := matchY[y]; {Thì x = matchY[y] cũng phải thuộc cây pha} 
Fyly] := Fy[y] - Delta; (Cộng trọng số những cạnh liên thuộc với y lên A} 
Fx[x] := Fx[x] + Delta; (Trù trọng số những cạnh liên thuộc với x đi A} 
end 
else 
dịy] := d[y] - Delta; (Nếu y ¢ cây pha thì sau bước xoay, khoảng cách từ y đến cây pha sẽ giảm A} 
{Chuẩn bị tiếp tụcBFS) 
for y := 1 to k do 
if (Trace[y] = 0) and (d[y] = 0) then (Thăm luôn những đỉnh yeY tạo với cây pha một 0 cạnh) 
begin 
Trace[y] := arg[y]; (Lưu vết đường đi) 
if matchY[y] = 0 then (Nếu y chua ghép thì ghi nhận đỉnh kết thúc đường mở và thoát ngay) 


begin 
finish := y; 
Exit; 
end; 
Push (matchY[y]); (Nếu y đã ghép thì đẩy luôn matchY[y] vào hàng đợi để chờ loang tiếp) 


end; 
end; 


procedure Enlarge; {Nói rộng bộ ghép bằng đường mở kết thúc ở finish} 
var 


x, next: Integer; 


Đại học Sw phạm Hà Nội, 1999-2002 


Các thuật toán trên đồ thị <œ 280 ën 


begin 
repeat 
x := Trace[finish] ; next next 
next := matchX[x]; Sech 
matchX[x] := finish; 
matchY [finish] := x; 
finish := Next; 
until finish = 0; 
end; start start 


procedure Solve; 


var 
x, y: Integer; 
begin 
for x := 1 to k do (Với mỗi X đỉnh: } 
begin 
start := x; (Đặt nơi khởi đầu đường mở) 
TnitBF§; {Khói tạo cây pha} 
repeat 
FindAugmentingPath; {Tìm đường mó} 
if finish = 0 then SubX AđđY; (Nếu không thấy thì xoay các trọng số cạnh ..} 
until finish <> 0; {Cho tới khi tìm ra đường mó} 
Enlarge; {Nói rộng bộ ghép bởi đường mở tìm được} 
end; 
end; 


procedure Result; 
var 
x, y, Count, W: Integer; 
f: Text; 
begin 
Assign(f, OutputFile); Rewrite (f); 
WriteLn(f, 'Optimal assignment: ') ; 
W := 0; Count := 0; 
for x := 1 to m do (Với nỗi X đỉnh, xét cặp ghép tương úng} 
begin 
y := matchX[x]; 
if c[x, y] < mat then {Chi quan tâm đến những cặp ghép có trọng số < maxC} 
begin 
Inc (Count) ; 
WriteIn(f, Count:5, ') X[', x, '] - Y[', y, '] ', e[x, yl); 
W :=W+ c[x, y]; 
end; 
end; 
Writeln(f, 'Cost: ', W); 
Close (£) ; 
end; 


begin 
Enter; 
Init; 
Solve; 
Result; 
end. 
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§13. BÀI TOÁN TÌM BỘ GHÉP CỰC ĐẠI TRÊN ĐỎ THỊ 


13.1. CÁC KHÁI NIỆM 


Xét đồ thị G = (V, E), một bộ ghép trên đồ thị G là một tập các cạnh đôi một không có đỉnh chung. 
Bài toán tìm bộ ghép cực đại trên đồ thị tông quát phát biểu như sau: 

Cho một đồ thị G, phải tìm một bộ ghép cực đại trên G (bộ ghép có nhiều cạnh nhất). 

Với một bộ ghép M của đồ thị G, ta ĐỌI: 

Những cạnh thuộc M được gọi là cạnh đã ghép hay cạnh đậm 

Những cạnh không thuộc M được gọi là cạnh chưa ghép hay cạnh nhạt 

Những đỉnh đầu mút của các cạnh đậm được gọi là đỉnh đã ghép, những đỉnh còn lại gọi là đỉnh 
chưa ghép 

Một đường đi cơ bản (đường đi không có đỉnh lặp lại) được gọi là đường pha nếu nó bắt đầu bằng 
một cạnh nhạt và tiếp theo là các cạnh đậm, nhạt nằm nối tiếp xen kẽ nhau. 

Một chu trình cơ bản (chu trình không có đỉnh trong lặp lại) được gọi là một Blossom nếu nó đi qua 
ít nhất 3 đỉnh, bắt đầu và kết thúc bằng cạnh nhạt và dọc trên chu trình, các cạnh đậm, nhạt nằm nối 
tiếp xen kẽ nhau. Đỉnh xuất phát của chu trình (cũng là đỉnh kết thúc) được gọi là đỉnh cơ sở (base) 
của Blossom. 

Đường mở là một đường pha bắt đầu ở một đỉnh chưa ghép và kết thúc ở một đỉnh chưa ghép. 

Ví dụ: Với đồ thị G và bộ ghép M trong Hình 87: 

Đường (8, 1, 2, 5, 6, 4) là một đường pha 

Chu trình (2, 3, 4, 6, 5, 2) là một Blossom 

Đường (8, 1, 2, 3, 4, 6, 5, 7) là một đường mở 

Đường (8, 1, 2, 3, 4, 6, 5, 2, 1, 9) tuy có các cạnh đậm/nhạt xen kế nhưng không phải đường pha (và 
tất nhiên không phải đường mở) vì đây không phải là đường đi cơ bản. 


Đã ghép 


Chưa ghép 


Hình 87: Đồ thị G và một bộ ghép M 
Ta dễ dàng suy ra được các tính chất sau 
Đường mở cũng như Blossom đều là đường đi độ dài lẻ với số cạnh nhạt nhiều hơn số cạnh đậm 


đúng 1 cạnh. 
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Trong mỗi Blossom, những đỉnh không phải đỉnh cơ sở đều là đỉnh đã ghép và đỉnh ghép với đỉnh 
đó cũng phải thuộc Blossom. 

Vì Blossom là một chu trình nên trong mỗi Blossom, những đỉnh không phải đỉnh cơ sở đều tòn tại 
hai đường pha từ đỉnh cơ sở đi đến nó, một đường kết thúc bằng cạnh đậm và một đường kết thúc 
bằng cạnh nhạt, hai đường pha này được hình thành bằng cách đi dọc theo chu trình theo hai hướng 
ngược nhau. Như ví dụ ở Hình 87, đỉnh 4 có hai đường pha đi đỉnh cơ sở 2 đi tới: (2, 3, 4) là đường 
pha kết thúc bằng cạnh đậm và (2, 5, 6, 4) là đường pha kết thúc bằng cạnh nhạt 


13.2. THUẬT TOÁN EDMONDS (1965) 


Cơ sở của thuật toán là định lý (C.Berge): Một bộ ghép M của đồ thị G là cực đại khi và chỉ khi 
không tồn tại đường mở đối với M. 
Thuật toán Edmonds: 
M := Ø; 
for (V dinh u chua ghép) do 
if <Tìm đường mở xuât phát từ u> then 
< 
Doc trên đường nở: 
loại bỏ những cạnh dâm khỏi M; 
Thêm vào M những cạnh nhạt; 
> 
Result: M là bộ ghép cực đại trên G 
Điêu khó nhât trong thuật toán Edmonds là phải xây dựng thuật toán tìm đường mở xuât phát từ 


một đỉnh chưa ghép. Thuật toán đó được xây dựng bằng cách kết hợp một thuật toán tìm kiếm trên 
đồ thị với phép chập Blossom. 

Xét những đường pha xuất phát từ một đỉnh x chưa ghép. Những đỉnh có thể đến được từ x bằng 
một đường pha kết thúc là cạnh nhạt được gán nhãn "nhạt", những đỉnh có thê đến được từ x bằng 
một đường pha kết thúc là cạnh đậm được gán nhãn "đậm". 

Với một Blossom, ta định nghĩa phép chập (shrink) là phép thay thế các đỉnh trong Blossom bằng 
một đỉnh duy nhất. Những cạnh nối giữa một đỉnh thuộc Blossom tới một đỉnh v nào đó không 
thuộc Blossom được thay thế bằng cạnh nối giữa đỉnh chập này với v và giữ nguyên tính đậm/nhạt. 


Dễ thấy rằng sau mỗi phép chập, các cạnh đậm vẫn được đảm bảo là bộ ghép trên đồ thị mới: 


Lê Minh Hoàng 


& 292 wës Chuyên đề 


Shrink 


Shrink 


© = đỉnh cơ sở của blossom  ? = đỉnh chập từ blossom 


Hình 88: Phép chập Blossom 


Thuật toán tìm đường mở có thể phát biéu như sau. 

Trước hết đỉnh xuất phát x được gán nhãn đậm. 

Tiếp theo là thuật toán tìm kiếm trên đồ thị bắt đầu từ x, theo nguyên tắc: từ đỉnh đậm chỉ được 
phép đi tiếp theo cạnh nhạt và từ đỉnh nhạt chỉ được đi tiếp theo cạnh đậm. Mỗi khi thăm tới một 
đỉnh, ta gán nhãn đậm/nhạt cho đỉnh đó và tiếp tục thao tác tìm kiếm trên đồ thị như bình thường. 
Cũng trong quá trình tìm kiếm, mỗi khi phát hiện thấy một cạnh nhạt nối hai đỉnh đậm, ta dùng lại 
ngay vì nếu gán nhãn tiếp sẽ gặp tình trạng một đỉnh có cả hai nhãn đậm/nhạt, trong trường hợp này, 
Blossom được phát hiện (xem tính chất của Blossom) và bị chập thành một đỉnh, thuật toán được 
bắt đầu lại với đồ thị mới cho tới khi trả lời được câu hỏi: "có tồn tại đường mở xuất phát từ x hay 
không?" 

Nếu đường mở tìm được không đi qua đỉnh chập nào thì ta chỉ việc tăng cặp dọc theo đường mở. 


Nếu đường mở có đi qua một đỉnh chập thì ta lại nở đỉnh chập đó ra thành Blossom dë thay đỉnh 


V 


chập này trên đường mở bằng một đoạn đường xuyên qua Blossom: 


Expand 


Hình 89: Nở Blossom để dò đường xuyên qua Blossom 
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Lưu ý rằng không phải Blossom nào cũng bị chập, chỉ những Blossom ảnh hưởng tới quá trình tìm 
đường mở mới phải chập để đảm bảo rằng đường mở tìm được là đường đi cơ bản. Tuy nhiên việc 
cài đặt trực tiếp các phép chập Blossom và nở đỉnh khá rắc rối, đòi hỏi một chương trình với độ 
phức tạp Om. 

Dưới đây ta sẽ trình bày một phương pháp cài đặt hiệu quả hơn với độ phức tạp O(n”), phương pháp 


này cài đặt không phức tạp, nhưng yêu cầu phải hiểu rất rõ bản chất thuật toán. 
13.3. PHƯƠNG PHÁP LAWLER (1973) 


Trong phương pháp Edmonds, sau khi chập mỗi Blossom thành một đỉnh thì đỉnh đó hoàn toàn lại 
có thê năm trên một Blossom mới và bị chập tiếp. Phương pháp Lawler chỉ quan tâm đến đỉnh chập 
cuối cùng, đại diện cho Blossom ngoài nhất (Outermost Blossom), đỉnh chập cuối cùng này được 
định danh (đánh số) bằng đỉnh cơ sở của Blossom ngoài nhất. 

Cũng chính vì thao tác chập/nở nói trên mà ta cần mở rộng khái niệm Blossom, có thể coi một 
Blossom là một tập đỉnh nở ra từ một đỉnh chập chứ không đơn thuần chỉ là một chu trình pha 
cơ bản nữa. 

Xét một Blossom B có đỉnh cơ sở là đỉnh r. Với VveB, v # r, ta lưu lại hai đường pha từ r tới v, 
một đường kết thúc bằng cạnh đậm và một đường kết thúc bằng cạnh nhạt, như vậy có hai loại vết 
gãn cho mỗi đỉnh v (hai vết này được cập nhật trong quá trình tìm đường): 

S[v] là đỉnh liền trước v trên đường pha kết thúc bằng cạnh đậm, nếu không tòn tại đường pha loại 
này thì S[v] = 0. 

T[v] là đỉnh liền trước v trên đường pha kết thúc bằng cạnh nhạt, nếu không tồn tại đường pha loại 
này thì T[v] = 0. 

Bên cạnh hai nhãn S và T, mỗi đỉnh v còn có thêm 

Nhãn b[v] là đỉnh cơ sở của Blossom chứa v. Hai đỉnh u và v thuộc cùng một Blossom < b[u] = 
b[v]. 

Nhãn matfch[v] là đỉnh ghép với đỉnh v. Nếu v chưa ghép thì match[v] = 0. 

Khi đó thuật toán tìm đường mở bắt đầu từ đỉnh x chưa ghép có thể phát biểu như sau: 

Bước 1: (Init) 

Hàng đợi Queue dùng đề chứa những đỉnh đậm chờ duyệt, ban đầu chỉ gồm một đỉnh đậm x. 

Với mọi đỉnh u, khởi gán b[u] = u và match[u] = 0 với Vu. 

Gán S[x] # 0; Với Vuzx, gán S[u] = 0;Với Yv: gán T[v] =0 

Bước 2: (BFS) 

Lặp lại các bước sau cho tới khi hàng đợi rỗng: 

Với mỗi đỉnh đậm u lấy ra từ Queue, xét những cạnh nhạt (u, v): 


Nếu v chưa thăm: 
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Nếu v là đỉnh chưa ghép > Tìm thấy đường mở kết thúc ở v, dừng 
Nếu v là đỉnh đã ghép > thăm v > thăm luôn match[v] và đầy match[v] vào Queue. 
Sau mỗi lần thăm, chú ý việc lưu vết (hai nhãn S và T) 
Nếu v đã thăm 
Nếu v là đỉnh nhạt hoặc b[v] = b[u] > bỏ qua 
Nếu v là đỉnh đậm và b[v] + b[u] ta phát hiện được blossom mới chứa u và v, khi đó: 
e Phát hiện đỉnh cơ sở: Truy vết đường đi ngược từ hai đỉnh đậm u và v theo hai đường pha 
về nút gốc, chọn lấy đỉnh a là đỉnh đậm chung gặp đầu tiên trong quá trình truy vết ngược. 
Khi đó Blossom mới phát hiện sẽ có đỉnh cơ sở là a. 
= Gán lại vết: Gọi (a = il, i2, ..., ip = u) và (a = j1, j2, ..., jq = v) lần lượt là hai đường pha 
dẫn từ a tói u và v. Khi đó (a = 1l, 12, ..., ip = u, jq = v, jq-1l, ..., jJl = a) là một chu trình 
pha đi từ a tói u và v rồi quay trở vè a. Bằng cách đi đọc theo chu trình này theo hai hướng 
ngược nhau, ta có thể gán lại tát cả các nhãn S và T của những đỉnh trên chu trình. Lưu ý 
rằng không được gán lại nhãn S và T cho những đỉnh k mà b[k] = a, và với những đỉnh k 
có b[k] + a thì bắt buộc phải gán lại nhãn S và T theo chu trình này bất kê S[k] và T[k] 
trước đó đã có hay chưa. 
Chập Blossom: Xét những đỉnh v mà b[v]e "bin, b[i2], ..., b[Ip], bt, b[J›]. ..., bal}, gán lại b[v] 
= a. Nếu v là đỉnh đậm (có nhãn S[v] + 0) mà chưa được duyệt tới (chưa bao giờ được đây vào 
Queue) thì đây v vào Queue chờ duyệt tiếp tại những bước sau. 


Nếu quá trình này chỉ thoát khi hàng đợi rỗng thì tức là không tồn tại đường mở bắt đầu từ x. 


Sau đây là một số ví dụ về các trường hợp từ đỉnh đậm u xét cạnh nhạt (u, v): 


Trường hợp 1: v chưa thăm và chưa ghép: 


> Tìm thấy đường mở 


Trường hợp 2: v chưa thăm và đã ghép 
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=> Thăm cả v lẫn match[v], gán nhãn T[v] và S[match[v]] 


Trường hợp 3: v đã thăm, là đỉnh đậm thuộc cùng blossom với u 


=> Không xét, bỏ qua 


Trường hợp 4: v đã thăm, là đỉnh đậm và b[u]  b[v] 


=> Phát hiện Blossom, tìm đỉnh cơ sở a = 3, gán lại nhãn S và T dọc chu trình pha. Đây hai đỉnh 
đậm mới 4, 6 vào hàng đợi, Tại những bước sau, khi duyệt tới đỉnh 6, sẽ tìm thấy đường mở kết 


thúc ở 8, truy vết theo nhãn S và T tìm được đường (1, 2, 3, 4, 5, 7, 6, 8) 


Tư tưởng chính của phương pháp Lawler là dùng các nhãn b[v] thay cho thao tác chập trực tiếp 
Blossom, dùng các nhãn S và T để truy vết tìm đường mở, tránh thao tác nở Blossom. Phương pháp 
này dựa trên một nhận xét: Mỗi khi tìm ra đường mở, nếu đường mở đó xuyên qua một Blossom 
ngoài nhất thì chắc chắn nó phải đi vào Blossom này từ nút cơ sở và thoát ra khỏi Blossom bằng 
một cạnh nhạt. 

13.4. CÀI ĐẶT 


Ta sẽ cài đặt phương pháp Lawler với khuôn dạng Input/Output như sau: 
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Input: file văn bản GMATCH.INP 
e Dòng 1: Chúa hai só n, m lần lượt là số cạnh và số đỉnh của đồ thị cách nhau ít nhất một dẫu 
cách (n < 100) 
e m dòng tiếp theo, mỗi dòng chứa hai số u, v tượng trưng cho một cạnh (u, v) của đồ thị 


Output: file văn bản GMATCH.OUT, ghi bộ ghép cực đại tìm được 


GMATCH. INP || GMATCH. OUT 
10 11 1) 16 
12 2) 28 
16 3) 34 
24 4) 5 10 
28 3) 79 
34 

36 

36 

39 

310 

78 

79 


Chương trình này sửa déi một chút mô hình cài đặt trên dựa vào nhận xét: 

v là một đỉnh đậm <> v = x hoặc match[v] là một đỉnh nhạt 

Nếu v là đỉnh đậm thì S[v] = match[v] 

Vậy thì ta không cần phải sử dụng riêng một mảng nhãn S[v], tại mỗi bước sửa vết, ta chỉ cần sửa 
nhãn vét T[v] mà thôi. Để kiểm tra một đỉnh v # x có phải đỉnh đậm hay không, ta có thể kiểm tra 
bằng điều kiện: match[v] có là đỉnh nhạt hay không, hay T[match[v]] có khác 0 hay không. 

Chương trình sử dụng các biến với vai trò như sau: 

match[v] là đỉnh ghép với đỉnh v 

b[v] là đỉnh cơ sở của Blossom chứa v 

T[v] là đỉnh liền trước v trên đường pha từ đỉnh xuất phát tới v kết thúc bằng cạnh nhạt, T[v] = 0 
nếu quá trình DES chưa xét tới đỉnh nhạt v. 

InQueue[v] là biến Boolean, InQueue[v] = True © v là đỉnh đậm đã được đây vào Queue để chờ 
duyệt. 


start và finish: Nơi bắt đầu và kết thúc đường mở. 


program MatchingTnGeneral6raph; 


const 
InputFile = 'GMATCH.INP'; 
OutputFile = 'GMATCH.0UT' ; 
max = 100; 

var 


a: array[1..max, 1..max] of Boolean; 

match, Queue, b, T: array[1..max] of Integer; 
InQueue: array[1..max] of Boolean; 

n, first, last, start, finish: Integer; 


procedure Enter; 
var 
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i, m, u, v: Integer; 
f: Text; 
begin 
Assign(f, InputFile); Reset(f) ; 
FillChar(a, Size0f (a), False); 
Readln (f, n, m); 
for i := 1 to m do 
begin 
Readln (f, u, v); 
a[u, v] := True; 
a[v, u] := True; 
end; 
Close (£) ; 
end; 


procedure Init; (Khởi tạo bộ ghép rỗng} 
begin 

FillChar (match, Size0f (match), 0) ; 
end; 


procedure InitBFS; (Thủ tục này được gọi để khởi tạo trước khi tìm đường mở xuất phát từ start} 
var 

i: Integer; 
begin 

{Hàng dgi chi gôm môt dinh dâm start} 

first := 1; last := 1; 

Queue[1] := start; 

FillChar (InQueue, SizeOf (TnQueue), False); 

InQueue[start] := True; 

{Các nhãn T được khởi gán = 0} 

FillChar(T, §5izeOF(T), 0); 

{Nút cơ sở của outermost blossom chứa i chính là i} 

for i := 1 to n do b[i] := i; 

finish := 0; {finish = 0 nghĩa là chua tìm thấy đường mở] 
end; 


procedure Push(v: Integer); (Đẩy một đỉnh đậm v vào hàng doi} 
begin 

Ine (last) ; 

Queue[last] := v; 

InQueue[v] := True; 
end; 


function Pop: Integer; (Lấy một đỉnh đậm khỏi hàng đợi, trả về trong kết quả hàm} 
begin 

Pop := Queue[first]; 

Ine (first) ; 
end; 


(Khó nhất của phương pháp Lawler là thủ tục này: Thủ tục xử lý khi gặp cạnh nhạt nỗi hai đỉnh đậm p, al 
procedure BlossomShrink(p, q: Integer); 
var 

i, NewBase: Integer; 

Mark: array[1..max] of Boolean; 


{Thủ tục tìm nút cơ sở bằng cách truy vết ngược theo đường pha tù p và q} 
function FindCommonAncestor(p, q: Integer): Integer; 
var 
InPath: array[1..max] of Boolean; 
begin 
FillChar (TnPath, SizeOf(Tnpath), False); 
repeat (Truy vết từ p} 
p :=b[p]; (Nhảy tới nút cơ sở của Blossom chứa p, phép nhảy này để tăng tốc độ truy vết} 
Inpath[p] := True; {Đánh dấu nút đó] 
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if p = start then Break; (Nếu đã truy về đến nơi xuất phát thì dùng) 
p := T[match[p]]; (Nếu chua về đến start thì truy lùi tiếp hai bước, theo cạnh đậm rồi theo cạnh nhạt) 
until False; 
repeat (Truy vết tù q, tương tụ nhu đối với p} 
q := b[q]; l 
if InPath[q] then Break; {Tuy nhiên nêu chạm vào đường pha của p thì dùng ngay} 
q := T[match[q]] ; 
until False; 
FindCommonAncestor := q; (Ghi nhận đỉnh cơ sở mới} 
end; 


procedure ResetTrace(x: Integer); (Gán lại nhãn vết dọc trên đường pha tù start tới x} 


var 
u, v: Integer; 
begin 
v=x; 
while b[v] <> NewBase do {Truy vết đường pha tù start tới đỉnh đậm x} 
begin 
u := match[v]; 
Mark[b[v]] := True; (Đánh dấu nhãn blossom của các đỉnh trên đường di} 
Mark[b[u]] := True; 
v := T[u]; 
if b[v] <> NewBase then T[v] := u; {Chi đặt lại vết T[v] néu b[v] không phải nút cơ sở mới) 
end; 
end; 


begin {BlossomShrink} 
FillChar (Mark, Size0f (Mark), False); {Tát cả các nhãn b[v] đều chua bị đánh dáu} 
NewBase := FindCommonAncestor(p, q); {xác định nút cơ sở} 
{Gán lại nhãn} 
ResetTrace (p); ResetTrace (q) ; 
if b[p] <> NewBase then T[p] := q; 
if b[q] <> NewBase then T[q] := p; 
{Châp blossom & gán lại các nhãn b[i] néu blossom b[i] bị đánh dấu) 
for i := 1 to n do 
if Mark[b[i]] then b[i] := NewBase; 
{Xét những đỉnh đậm i chua được đưa vào Queue nằm trong Blossom mới, đây i và Queue để chờ duyệt tiếp tại các bước sau} 
for i := 1 to n do 
if not InQueue[i] and (b[i] = NewBase) then 
Push (1) ; 
end; 


{Thủ tục tìm đường mở} 
procedure FindAugmentingPath ; 
var 
u, v: Integer; 
begin 
InitBFS; {Khói tạo} 
repeat {BFS} 
u := Pop; 
{xét những đỉnh v chưa duyệt, kể với u, không nằm cùng Blossom với u, dĩ nhiên T[v] = 0 thì (u, v) là cạnh nhạt rôi} 
for v := 1 to n do 
if (T[v] = 0) and (a[u, v]) and (b[u] <> b[v]) then 
begin 
if match[v] = 0 then (Nếu v chua ghép thì ghi nhận đỉnh kết thúc đường mở và thoát ngay} 
begin 
T[V] := u; 
finish := v; 
Exit; 
end; 
(Nếu v là đỉnh đậm thì gán lại vết, châp Blossom ..} 
if (v = start) or (T[match[v]] <> 0) then 
BlossomShrink(u, v) 
else {Néu không thì ghi vết đường đi, thăm v, thăm luôn cả match[v] và đẩy tiếp match[v] vào Queue} 
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begin 
T[V] := u; 
Push (match [v]) ; 
end; 
end; 
until first > last; 
end; 


procedure Enlarge; {Nói rộng bộ ghép bởi đường mở bát đầu tù start, kết thúc ó finish} 
var 
v, next: Integer; 
begin 
repeat 
v := T[finish]; 
next := match[v]; 
match[v] := finish; 
match[finish] := v; 
finish := next; 
until finish = 0; 
end; 


procedure Solve; (Thuật toán Edmonds} 
var 
u: Integer; 
begin 
for u := 1 to n do 
if match[u] = 0 then 
begin 
start := u; (Với mỗi đỉnh chua ghép start} 
FindAugmentingPath; (Tìm đường mở bắt đầu tù start} 
if finish <> 0 then Enlarge; (Nếu thấy thì nói rộng bộ ghép theo đường mở này} 
end; 
end; 


procedure Result; (In bộ ghép tìm được} 


var 
u, count: Integer; 
f: Text; 

begin 
Assign(f, OutputFile); Rewrite (f); 
count := 0; 


for u := 1 to n do 
if match[u] > u then {Vùa tránh sự trùng lặp (u, v) và (v, u), vừa loại những đỉnh không ghép được (match=0) } 
begin 
Inc (count) ; 
Writeln(f, count, ') ', u, ' ', match[u]); 
end; 
Close (£) ; 
end; 


begin 
Enter; 
Init; 
Solve; 
Result; 
end. 


13.5. ĐỘ PHÚC TAP TÍNH TOÁN 


Thủ tục BlossomShrink có độ phức tap O(n). Thủ tục FindAugmentingPath cần không quá n lần gọi 


thủ tục BlossomShrink, cộng thêm chỉ phí của thuật toán tìm kiếm theo chiều rộng, có độ phức tạp 
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O(n’). Phương pháp Lawler cần không quá n lần gọi thủ tục FindAugmentingPath nên có độ phức 
tạp tính toán là O(n’). 

Cho đến nay, phương pháp tốt nhất để giải bài toán tìm bộ ghép tổng quát trên đồ thị được biết đến 
là của Micali và Varizani (1980), nó có độ phức tạp tính toán là O(Vn. mm). Bạn có thể tham khảo 


trong các tài liệu khác. 
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